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IJK Software and the ORIC-1 Micro 
bring you more exciting arcade 
action from the Xenon series... 


IJK Software Ltd present... 
FOR THE 48K QORIC-1 


From the author of the highly 
acclaimed Xenon-1 comes the 


second in the Xenon series. This ov “*¢ at 
game continues the high standard oe iat f FEATURES INCLUDE: 


of excellence set by its pre- 100% MACHINE CODE 
decessor.The amazing super high 

resolution .graphics make this 100% machine code arcade game a must for your SUPERB SOUND EFFECTS 
collection. SUPER-SMOOTH HI-RES 
Following their defeat at the hands of the Xenon fleet the Zorgons have captured the GRAPHICS °: 

Xenon princess Roz, and have imprisoned her in their castle. You are commissioned to 

rescue her by scouring the four corners of the Zorgon Empire to capture the magic MULTI-STAGE ARCADE ACTION 
stones. These stones, guarded by the Quadnogs, Terrapods and many other strange SKILL LEVELS 

beasts, are needed to bridge the bottomless chasm surrounding the castle, enabling you 

to achieve your goal. HALL OF FAME 

Each one of the many varied stages in this scintillating mission will test your arcade 

ability as never before. For the 48K ORIC-1 £8.50 inc. 


OTHER TITLES IN THE IJK SOFTWARE ORIC-1 RANGE... 


XENON-1 INVADERS FANTASY QUEST REVERSE CANDYFLOSS & 3D MAZE & 
100% M/C arcade Machine code Intriguing Superb board HANGMAN BREAKOUT 
game forthe arcade game for adventure for game for Two top Arcade action for 
48K ORIC-1 16K & 48K ORIC-1 48K ORIC-1 48K ORIC-1 educational 48K ORIC-1 
£8.50 inc. £7.50 inc. £6.50 inc. £6.50 inc. programs for £7.50 inc. 
48K ORIC-1 


ALL PRICES FULLY INCLUSIVE OF VAT and P&P - NO MORE TO PAY 


Our software has been officially approved by Oric Products International Ltd., 
and is available from branches-of W.H. Smiths, Laskys, Computers for all, 
Zappo, Boots, John Menzies, The Spectrum Chain, many other leading 
department stores, hundreds of independent dealers nationwide, and in 

23 countries across the world. You can also order direct from us ~all advertised 
software is in stock now and will be despatched within 48 hours of et | PiSitg 
order: ane 


IJK (7) 24 HOUR ANSAFONE 
Software = utswasate 


ne — 
mite WARNING: All software sold subject to IJK Software's standard 7a < Wn 
conditions of sale and terms of trade, copies available nA 
on request. ae 
“atalia! 
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Oric-Base revealed 
The author of Oric-Base, 


Geoff Phillips, reveals more to 


us about the program 


Captain Tanex 


How much longer can our 
intrepid hero escape death? 

Will he complete his mission in 
|. time? 


- 


Take Home Pay 
Calculation 

Is it really that little?! Try the 
program and find out 


Hints & Tips 


More recipes for you to cook 
up on your Oric! 


Grand-Prix 


Become a formula I Grand 
Prix racing driver! 


Cinderella 


Will she find Prince Charming 
and marry him or will one of 
her ugly sisters get there first? 


o> 


TAKE YOUR OR TO THE LIMITS NO BEYOND 


Extracts from the Oric 
Handbook 

In this issue we feature the 
chapters on Communication 
and Programming 


And Forthly . . . Money 
Manager 

Another program for all you 
Forth enthusiasts 


Conipetition! 

Complete the crossword and 
caption and you could win 
yourself an Oric printer 
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PEACH COMPUTERS LTD 
192 GREENOCK RD.,LARGS,AYRSHIRE,SCOTLAND. TEL10475 673766 
FPEACHBYTES 


ON SALE WORLDWIDE SEE YOUR LOCAL AGENT OR DIRECT FROM US. 
WRITE FOR FULL DETAILS OF OUR EXCITING RANGE OF SOFTWARE. 
FOR EXAMPLE - - 


RECORDS .--- PBS ---+.+ £190 


Fast powerful low cost system for storing and easy access 
to vast quantities of data. Suitable for a wide variety 

of business educational home and scientific applications. 
Exploits the full editing facilities of the ORIC-I. 


MENU FUNCTION 


«». PROG CHECK .... CHECKS THE PROGRAM FOR ERRGRS. 
». CLEAR DATA .... CLEARS THE DATA STORE (3OK BYTES). 
-. LOAD DATA .... LOADS IN DATA FILES FROM CASSETTE. 
+» DATA CHECK .... CHECKS THE DATA STORE FOR ERRORS. 
«+ FORMAT «+++ 40/80 CHARS PER LINE ON PRINTER. 
+» WRITE TEXT .... 
++. EDITORIAL .... FLIP THROUGH 30 SCREEN PAGES (SOK). 
«. OUT PRINTER.... OUTPUTS SELECTED PAGE(S) TO PRINTER 
«. READJUST DC.... UPDATES DATA CHECK AFTER ADDITIONS. 
». SAVE DATA .... SAVES DATA FILES ON CASSETTES. 

- BASIC UPDT .... UPDATES PROG CHECK AFTER CHANGES. 

( NO SQUIGGLES OR MISPRINTS ) 


WNVDOmENSCOV 


We specialise in fast efficient software for the ORIC-I 
Full back up and support provided to all customers. 

Our suite of software is steadily increasing with new and 
dramatic packages being developed. Keep in touch for news 


( ALL PRICES FULLY INCLUSIVE ) 


ATTRACTIVE DEALER TERMS 


BRIDGE 


ORIC 48 


ICB Bridge is a sophisticated 
bridge game for a single player, 
the other three hands are bid 
and played by the computer. 
Features: Random Deal 


Natural ‘‘Acol-type” Bidding 
With: Jump Bids 
Strong Two Bids 
Stayman 
Advanced Play routines 
Only £8.85 including P&P 


Send Cheque or PO to 
ICB ENTERPRISES 
33 BURNT STONES DRIVE 
SHEFFIELD S10 5TT 


Tel: (0742) 302050 
& DEALER ENQUIRIES WELCOME 
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WRITE AND EDIT TEXT TO VIDEO SCREEN. 


ORIC Software 


We have 68 programs available especially for the 
ORIC. 


Airline£7.95 TheHobbit£14.95 Chess £9.95 
Othello £4.95 Flight £7.95 Zodiac £6.90 


PASE Joystick Interface £14.95 


Books: 
The Oric and How to get the most of it £5.95 
The Oric-1 Book of Games £5.95 
The Oric-1 Programmer £5.95 
Oric Graphics and Sound £6.95 
Oric Machine Code £6.95 


Add 45p P&P to Books 
P&P free on software. All prices inc. VAT. 
Cheques/P.O. to Micro World. 


For free descriptive software catalogue write to 


Micro World 
1 Lane Close, 
London NW2 60Z 


THE ORIC-1 COMPANION 


by Bob Maunder 


ISBN 0 907211 03 8. 173 pages. Price £6.95 


A thorough reference guide 
for those Oric-1 owners who 
want to get to know and use 
the machine in depth. 


Section 1: BASIC Summary 
Section 2: Keywords Guide 
Section 3: Screen Display 
Section 4: Program 
Organisation 
Section 5: The ROM 
Appendices including 
The MCP-40 Printer 


job Maunder 


This is the latest in the Companion series, acclaimed by 
Your Computer as ‘far and away the best for serious 
users’. 

AVAILABLE FROM GOOD BOOKSHOPS OR 


Send your cheque for £6.95 
(UK p&p free) to 


LINSAC 


68 Barker Road, 
Middlesbrough TS5 5ES 


Regulars 


Editor’s Comment 


By Paul B. Kaufman 


Congratulations are the order 
of the day to Oric for winning 
the Best Micro of the Year 
award in France. The micro is 
relatively new to the French 
public and so this award takes 
on a particular significance. 


Unlike the British public the 
French have no prejudices for or 
against any particular manufac- 
turers or existing user base. 
Thus comparisons were strictly 
done on a specification and price 
against price basis. It is there- 
fore rather gratifying to see that 
when the Oric is compared with 
other micros, such as the ZX- 
Spectrum, an unbiased public 
makes the Oric its first choice. 


One interesting reason that the 
Oric has beaten the Spectrum in 
France is due to the Spectrums 
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meilleur micro-ordinateur familial: | 


| ORICI 


| LES MEMISRES DU JURY 


AUDIO VIDEO. CLUB PRESSE & MEDIAS - ELECTRONIQUE APPLICATIONS « INTER ELECTRONIQUE 
JEUX - LE HAUT PARLELUR- LE MATIN MAGAZINE - LORDINATEOR DE ROCHE 
LURDINATEUR INDIVIDUEL - MICKO 7 - MICROSYSTEMES - MICRO VENTE - RADIO PLANS | 


CANNES, LE SOCTOBRE Sx 


lack of an RGB output. At first 
this may not seem particularly 
significant but when you realise 
that the French TV_ system 
(SECAM) will not work with 
computers using the UKs (PAL) 
system and that by coincidence 
most French TVs are equipped 
with RGB sockets, then you can 
begin to realise one of the Oric’s 
big advantages in France. Let’s 
hope its not too long before the 
Oric starts winning similar 
awards in this country. 


On Friday the 14th of October, 
about 8 o’clock in the morning 
just as I was trying to stop the cat 
finishing off my breakfast, Chris 
Shaw, one of the Orics engin- 
eers, phoned me up to tell me 
that Kenure Plastics, Orics main 
factory and assembly plant, had 
burnt down the previous night 
and could I bring my cassette 


TELE CINE VIDIO). TEMPS REEL - TELE SOFT - TILT - VIDEO INTERNATIONAL - VIDEO 
VIDEO ACTUALITES - VIDEO CLUB - VIDEO NEWS « VIDEO PRO. VISL - VOTRE ORDINATEUR 


LE PRESIDENT DU JURY 
JEANALAUIDE BOURKE 


Ps 
? 


recorder in. ‘Oh no’, thought I, 
‘they don’t want me to duplicate 
20,000 Welcome-to-Oric tapes 
by hand!’ When I reached the 
office, rather late as I got lost on 
the way to work, Chris informed 
me that within about four hours 
of the factory burning down they 
had managed to set up a new 
plant and could they have some 
more copies of the special test 
tapes that are used to align 
the Orics. This particularly im- 
pressed me as considering the 
scale of the disaster I expected 
them to be out of production for 
several weeks — Well done Oric. 


Incidentally the reason that I got 
lost going to work is that the 
previous day we moved offices. 
Our new address is Units 1 and 
2, Techno Park, Newmarket 
Road, Cambridge. Tel: Tever- 
sham 2261-2-3-4. 
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News 


News Brief 


Oric Angels 
to aid dealers 


Oric Products International are 
putting a team of ‘Angels’ on the 
road as part of their campaign to 
give after sales service and sup- 
port to their 1,000 dealer out- 
lets. 


The girls are intended to be 
merchandisers and not sales rep- 
resentatives. They will be there 
to help dealers and not to make 
sales. 


The 14 attractive Angels — 
dressed in navy and burgundy 
uniform — will be based around 
all the major towns in the UK. 
Their call cycles will be carefully 
organised so that they will see 
every dealer at least once a 
fortnight. 


Nine of the team are already on 
the road and the rest are receiv- 
ing training at the company’s 
headquarters in Ascot. They 
were carefully chosen from 
among 400 applicants for their 
enthusiasm and interest in com- 
puters. 


Detailed call sheet information 
will provide useful feedback to 
Oric as to how they can best 
support dealers in the future. 


peat 1 © fing 
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Techno Park 
Move 


As you may or may not know, 
we have now moved to a new 
block of offices, which we will be 
sharing with Oric Research. 


All orders, technical enquiries 
and samples should in future be 
sent to: 


Units | and 2, 
Techno Park, 
Newmarket Road, 
Cambridge. 


Tel: (02205) 2261-2-3-4 


We also have a new member of 
staff: Debbie, our receptionist, 
will be here to help with order 
queries and help with the Sales 
Department. 


A Merry Christmas 
to all our readers! 


From all the 
staff of Tansoft 
and Oric! 
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News 


Exhibitions 


P.C.W. Show 


Tansoft made its first appear- 
ance at the PCW show at the 
Barbicon centre in October. 


Your Computer 
Christmas Fair (at 
Wembley ) 


After a small argument with a 
neighbouring stand, the rest of 
the P.C.W. Show was very suc- 
cessful. A lot of interest was 
shown in our forthcoming pro- 


ducts: Defence Force, Rat- Tansoft will be represented at 


Splat, the Language Masterclass 
Series and of course the Hobbit. 
We will aim to attend again next 
year and we hope to see as much 
interest then. 


the Christmas Fair (15-18th 
Dec). If you have any queries or 
problems or just want to try a 
game of Defence Force, pop 
along and see us there! 
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News 


For business users who have 
become fans of Oric-Base comes 
a new offering from Tansoft — 
Oric-Calc. This has been writ- 
ten by the author of Oric-Base, 
Geoff Phillips, and is well up to 
his usual standard. Oric-Calc is 
a spreadsheet program which 
means in quite simple terms 
that you can enter tables of 
figures on the screen and then 
manipulate them in various 
ways to see how they affect 
each other. It is particularly 
useful for budgeting or year- 
plans where to have to calcu- 
late all the figures by hand 
would take hours. With Oric- 
Cale you can put in, say how 
many pairs of tweezers you 
have in stock and the monthly 
demand for tweezers and then 
by entering the appropriate for- 
mula work out how many 
tweezers you would have to 
buy in for the next ten years, to 
keep up with demand. Oric- 
Calc allows you to move sets of 
figures from one part of the 
screen to another, total up col- 
umns or rows and enter text 
commentary. As with Oric- 
Base you are supplied with a 


comprehensive manual — this 
time with worked examples! 


Dr. Paul Johnson dropped into 
my office the other day bran- 
dishing his latest acquisition, 
Zorgons Revenge from I.J.K. 
Software. This is an animated 
graphic adventure in four parts 
(there may be more parts but I 
couldn’t get any further!) — 
Basically your task is to build a 
bridge to cross a moat so that 
you can get into a castle to 
rescue the princess. Of course 
there are spiders, carnivorous 
trees, dinosaurs and strange 
flapping things who will 
attempt to stop you. Although 
technically the graphics and 
animation are probably the 
most advanced yet on the Oric 
it seems to lack the challenge 
and excitement of I.J.K.s ear- 
lier Xenon. I would say that for 
the person who’s tired of space 
shoot out games, Zorgons 
Revenge is a refreshing alterna- 
tive. 


Finally I must just mention a 
game that is close to my heart — 


John 


Rat Splat. Marshall, 
Geoff Phillips and myself sat 
round my desk in late July and 
worked out this game from 
scratch. The idea was to create 
the most ridiculous game we 
could think of. Rat Splat cer- 
tainly fits the bill. In the sewers 
live thousands of rats who 
adore cheese. Your task, as the 
Sewerman, is to hit the rats 
with your hammer to stop them 
eating the cheese you have pre- 
viously laid as bait. There is a 
rather nasty monster who 
would like to eat you and must 
be deterred by your can of poi- 
son gas. Another hazard is that 
the cheese gives off fumes 
which if allowed to build up 
will overpower you. Your smel- 
lometer informs you of the 
increasing danger. 


Rat Splat is deliciously grue- 
some and is a definite must for 
all psychopathic axe murde- 
rers — I love it! I love it! 


Next issue, due to some unex- 
pected delays, I hope to look at 
the Oric Hobbit. So bye for 
now. 
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An Ideal Home for __ 
your Microcomputer 


%# = =No More Loose Wires = = Robust Unit 

%#% Neat Compact Unit % = = Protects Computer System 
= =Supports T.V. %#% Improved Safety 

= Cassette Shelf for Software == Pad and Pencil Recess 


oe - FROM YOUR ORIC RETAILER 
Trade Enquiries Welcome - OR £29.95 + P+P DIRECT FROM 


EXPRESS COMPUTERS 
(RUGBY) LIMITED 


83 HIGH STREET HILLMORTON RUGBY WARWICKSHIRE CV214HD TEL: (0788) 71313 


Software 


Simple Disassembler 


How it came 
about 


That there is a multitude of 
useful routines concealed in the 
ORIC’s ROM is obvious from 
the snippets being gradually 
revealed by this publication. My 
own interest lies in the address- 
ing of the I/O part of the 
machine and I was particularly 
interested in addressing the VIA 
as although it is already over- 
worked it could be asked to take 
on a few more duties. 


Simpdis was written to look into 
the ROM and produce various 
answers. It is neither quick nor 
very elegant but it does work! , 


How it works 


Lines from 10 to 180 set up a set 
of data strings Line 190 is a patch 
to call up the short menu rou- 
tine. Lines 200 to 560 is the 
disassembler part that builds up 
a set of output strings: 


OUTS$ hold the address, mne- 
monic and, if applicable, an 
operand in hex. 


By D. Sinfield 


LI$ is the characters represen- 
ted by the values of the 
bytes in the instructions. 
They only print if they are 
ASCII alphanumerics. 


(This should help if you want to 
convert the program for use with 
a printer). 

Lines 1000 to 1220 put together 
OUT$ depending on _ the 
addressing mode. 


Lines 5000 to 5640 is the data for 
the data strings: MO$, BY$ and 
OP$. 

Lines 6000 to 6020 Put up a 
menu and process the choice. 
Lines 6100 to 6190 Calculate an 
offset. 

Lines 6200 to 6240 PEEK a byte 
and tell us all about it. 

Lines 6300 to 6320 Call a routine 
from the program. 

Lines 7000 onward print a 
header while the strings are 
being loaded. 


How to use it 


On RUNning the program a 
choice of functions is presented 


..- SIMpdis 


(1) DIS calls up the disas- 
sembler. In answer to the 
prompts a start and _ finish 
address should be given and 
then the disassembly listing will 
be produced. Hex or decimal 
numbers can be used. 


The listing can be stopped by 
pressing any key and then termi- 
nated by pressing “T”. 


If the program encounters a 
number it thinks should be an 
opcode but it isn’t in the 6502 set 
an ERR message will be pro- 
duced but the listing will not be 
interrupted. 


A typical line produced would 
be: 


#C000 JMP EA59 
Address Instruction 
Ly 


t 


This is the ASCII 
equivalent of 4C 

and 59. EA is out of 
the ASCII range and is 
suppressed. 
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Software 


(3) PEEK looks at an address & 


tells you all about it i.e. 


#4CEAS9 


This is the hex 


Hex location Dec location Dec 


contents Hex contents and the 
character if in the range 32-126. 


equivalent of the 
instruction. 


The third column is included to 


(4) CALL should be used with 


out the character 


strings stored. 


help sort 


caution. It can leave you looping 
without any hope of an elegant 
escape and CALLing EAS59 or 
C000 will do a cold start and 


(2) OFFSET This allows for the 


calculation of a destination 


destroy any program you may 
have in. 


the branch 


given 


address 


address and offset. 


Simpdis Listing 


GOSDLOESS: 


S"+((N) Ad) WWAOLT=9HO4 
OOZTOOTT SOSTT fosat “ooo tansog 
C4 *®X) SLHOTM=8X I 1- (SX) NS T=4 
(C145) HSS) $XSH=$X 

(0145) HSS) @XSH=$XNSHLaca= CN) SAR AT 
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Cz* ON) $40) $1 4514+ 


$42,NOTLYOO 
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Hin 


nk ¢ 


Oo 


4 A 


SOW) WA NO 


u= (N) SAAT 
w=EBKE “as w=] “T 
miahoneyiellianiy 
S$) HAdd= 
Lvs Fn fees at 
ENS A=< Sal 
($2) TWeAH4 
SINT au LAdNtI 
($5) WA=S 


$SiuNOLLYIO7 Lov isgulndNt 


ime, epee PES 
(S503 $0 hence? 


Goro Log 
LX SN 
(9) S$OWd0V34 


SSec0Lo= 904 


SAG" 
TOSH 


ASN 
(4) $ARddvad 
SEcOLo=VHOs 
LX SN 
(9) $d0dvau 
renee 
Sol? $48WTO 
0 at PO LHNSOD 


TTUTETTTTTTTTETTTeTe TT Tee e WAY 


HS TSWaSSYSId Ba 
SldaWis 
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WY 
WAY 
WAY 


Os 
Ots 
Oos 
O6€ 
OBS 
BLE 


a den 
tar he toe 
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a9e 
OSS 
Ove 
OLS 
ee 
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GéT 
Get 
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OFT 
Ost 
Ort 
Ont 
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OTT 


COT 


OL 
* 

= 

ay 
Oo 
or 
Of 


We. 
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1OoS0 
1060 
1070 
1090 
1100 
1150 
1160 
1200 
1210 
1220 
5000 
So1o0 
SO2ZO 
SOsSO 
S040 
SoOSO 
4962 
5070 
S080 


S090 


5100 
S110 
5120 
S130 
5140 
Sis. 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
$300 
5310 


S320 


fPRINTLI Sy : Pe 


eee 


PRINTHEX$ (N) , OFS (MN). BY® (ND, MOS (ND 
NEXT 
IFRIGHTS (OPS ¢ 
OUTS=OUTH+"  ¢" 
RETURN 
OUTS=OUTS+" ("EX BEX) 

RETURN 

QUTS=OUTS+" HU 4FXS 

RETURN 

IF LEN (OPS (N) )=3THENLOOO 

OUT$=OUT$+" "4X4", "RIGHTS (OPS (N) 1) 

RETURN 

DATABRE., ORAX, ERR, ERR, ERR, ORA, ASL, ERR 
DATAFHF’, ORA, ASL, ERR, ERR, ORA, ASL, ERR, BEL, ORAY 
DATA ERR, ERR, ERR, ORAX, ASLX, ERR, CLC, ORAY 
DATAERR, ERR, ERR, ORAX, ASLX, ERR, JSR 
DATAANDX, ERR, ERR, BIT, AND, ROL, ERR 
DATAPLF, AND, ROL, ERR, BIT, AND 

DATAROL; ERR, BMI, ANDY, ERR, ERR, ERR 
DATAANDX, ROLX, ERR, SEC. ANDY 
DATAERR, ERR, ERR, ANDX,ROLX, ERR 

DATARTL, EORX,. ERR, ERR, ERR, EOR,LSR 

DATA ERR, FHA, EOR,LSR, ERR, IMP, EOR, LSR, ERR 
DATAERVC, EORY, ERR, ERR, ERR, EORX, LSRX 
DATAERR.CL1,EORY,ERR, ERR, ERR, EORX 

DATALSRX, ERR, RTS, ADCX, ERR, ERR, ERR, ADC 


(N), 1) ="X" THENLOPO 
+XB4") ,Y" 


-DATAROR, ERR, FLA, ADC, ROR, ERR, MF, ADC 


DATAROR, ERR, BVS, ADCY, ERR, ERR, ERR, ADCX 
DATARORX, ERR, SEI, ADCY, ERR, ERR, ERR, ADCX 
DATARORX, ERR, ERR, STAX, ERR, ERR, STY, STA 
DATASTX, ERR, DEY, ERR, TXA, ERR, STY, STA 
DATASTX, ERR, BCC, STAY, ERR, ERR, STYX, STAX 
DATASTXY, ERR, TYA, STAY, TXS, ERR, ERR, STAX 
DATAERR, ERR, LDY, LDAX,LDX,ERR,LDY,LDA 
DATALDX, ERR, TAY, LDA, TAX, ERR, LDY, LDA 
DATALDX, ERR, BCS, LDAY, ERR, ERR, LDYX 

DATALDAX, LDXY, ERR, CLV, LDAY, TSX, ERR, LDY 

DATA LDAX, LDXY, ERR, CPY, CMPX, ERR, ERR, CPY 
DATACMP, DEC, ERR, INY, CMF, DEX, ERR, CPY, CMP, DEC 
DATAERR, BNE, CMF, ERR, ERR, ERR, CMP, DEC, ERR 
DATACLD, CMPY, ERR, ERR, ERR, CMPX, DEC, ERR, CPX 


DATASECX, ERR, ERR,CFX,SBC, INC, ERR, INX, SBC, NOF 


DATAERR, CPX, SEC, INC, ERR, BEQ, SECY, ERR, ERR 
DATAERR, SBCX, INCX, ERR, SED, SBCY,ERR, ERR 
DATAERR, SBCX, INCX, ERR 


S330 
S341 
S350 
S360 
S270 
S380 
S390 
3400 
5410 
S420 
5430 
S440 
S450 


. 3440 


S470 
5480 
S485 
5490 
S500 
S510 
5520 
Bano 

S40 
5550 
S560 
S570 
S580 
S590 
5600 
5610 
5620 
5630 
5640 
6000 
6010 
6020 
6100 
6110 


DATA142,1 
DATAZ, 2,1 
DATA, 2,1, 
DATA2.2,1, 
DATA1L.2,1 
DATA2, 2,1, 
1 
1 
1 
i 
° 


DATAI,2, 
DATA2. 2, 

DATA2, 2,2 
DATAZ, 2,1, 


: 
: 
” 
. 
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sameness a 


DATA2,2,1,1,1,2.2 


REM MODE 


DATA1. 2.1. 
DATA1, 2,1; 
DATA1,2, 1, 
DATAI,2,1, 
DATAL, 241, 
DATA, 2,1, 
DATAI, 2,1, 
DATA1, 2,1, 


DATAS, 2, 
DATA1, 2,1, 
DATA, 2,1, 
DATA, 2,1, 
PRINT"1=D 
GETJ 


GrasbboHbADR DARD ADS 


a er 


ary 


hI bi bo bl bo ba 


ee a ae 


TEpBHPADHHABRHBEEEHEL 


Qs «8 2 wee ee ee 


ry 


asa 


ll ll ool el ead 


ee a ae eae 


a 


i a ae ea 


ce oe 


Pe a a) 


as 


le 


ay ow 


Re RE Re ee 


or a 


cc rc or 


all el ell ell a oe 


“= 


22 8 
2 ee 
2 ae 
a rd 


ee ee 
23 eee ee 
i a aed 


Pee ee 


= 2 


Oe Oe OR RO 


cs 2 


Ch Gd Of id Of td OO Od Oa 


u 


O he Che Ole Che Oe Oe Oe ee 


ee 
Deas 


22 2 of fe ke ke 
j= 2 2 


ee ee ae ee 


a a ed 


iq? =. 2 2 oe 


es ee ee os 
Me 2. ae ee 


- 


ON J GOTO 0200, 6100, 6200, 6300 


INPUT"HEX OFFSET";0 


INPUT"FROM ADDRESS" ;F 
TFOS#7FTHENG1 70 


D=F+O0+2 


PRINT"DESTINATION="3HEX#(D) 


GOTO6000 
O=#FE-O 

D=F-0 
GOTO46140 
INPUT"BYTE":B 
N=FEEER (B) 


PRINTHEX$ (B) , Ey 


N, HEX (ND, 


TFN¢ S20RN*127THENPRINT: GOTO6000 
O PRINTCHRS (N) : GOTGG000 
START" sN 


INPUT "ROUTINE 
CALLN 
GOTOS900 


CLS:PRINT: PRINT: PRINT: PRINT: PRINT 


PRINT "OR OO OO OR ROKK" 


FRINT: PRINT" 


SIMPLE DISAS 


PRINT: PRINTSPC(S) 3 CHR (9633" DAVID 


PRINT: FRINT" 


G RETURN 


TEL. (6485 7086) 
PRINT: PRINT GOGO KK" 


a a a 


Pee a eS 


Paar 


ee a ee 


EMBLER" 
D SINFIELD" 
Sy" 
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lA 
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Software 


‘Connect-4’ 


By T. M. Mughal 


‘CONNECT-4 is a 2-player 
game in which the two players 
drop their counters into a ver- 
tical grid and attempt to get 
‘4-in-a-row’ (vertically, horizon- 
tally or diagonally). This pro- 
gram takes the place of the grid 
and counters and makes good 
use of sound, colour and high 
resolution graphics. The pro- 
gram may be re-run in two ways 
in the middle of a game: 


1. by pressing ‘N’: this keeps the 
names of the current two 
plays and merely redraws the 
board (i.e. empties the grid). 
This key (‘N’) should be 
pressed when someone has 
won. 


2. by pressing ‘R’: this runs the 
program all over again. This 
key should be pressed when 
different players want to play 


(as new names are reques- 
ted). 


The program is very easy to use 
and very ‘user-friendly’. It 
rejects erroneous inputs and 
automatically clears the board 
and starts again when the grid 
has become full and no-one has 
requested a new game or a 
re-run of the program. 
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HIRES: POKF£26A,10 
DEF FNR(X)=INT(RND(1)*X+1) :GOSUB30:GOTO160 
PRINTFRE(""):CLS:FORX=1L0TO220STEP30 
CURSET X,10,1 
DRAW 0,180,1 
NEXT X 
FOR Y=10 TO 190 STFP 30 
CURSFT 10,Y,3 
DRAW 210,0,1 
100 NEXT Y:I=0 
110 FOR X=25 TO 205 STEP 30 
120 CURSET X,191,3 
130 I=I+1 
140 CHAR 484+1,0,1 
150 NEXT:M=0:GOSUB2500: RETURN 
160 PRINTCHRS(12) 
170 PRINTSPC(11);CHRS$(4);CHRS(27); "J"; CHRS$(27);"VConnect 4 ";CHRS$(2 
7)5 "Ww" 
180 PRINTCHRS(4) 
190 REM 
200 WAIT 300: PRINTCHRS$(12) 
Fea renee eR TOMER: Tarik Mughal 1983"CHR 
$ 
220 REM 
230 WAIT 300: PRINTCHRS$(12):POKE£26A,11 
240 INPUT"Enter name of player on left";P1$:PRINTCHRS$(12) 
250 INPUT"Enter name of player on right";P2$:CLS:GOSUB3000 
260 PRINTP1$;" playing red.” 
270 PRINTP2$;" playing yellow.” 
280 PRINT” “CHRS$(27)"D"CHR$(27)"VPress any key... “CHRS$(27)"W"; 
290 GETZ$:CLS:POKE£26A,10 


, 300 REM 


310 REM 

320 REM 

330 REM 

340 FORI=1 TO 7:H(L)=O:NEXT I 
350 IF FNR(2)=1 THEN 410 
360 PL=0 

370 PRINTP1$;"“'s go..." 
380 PRINTQS; 

390 GOSUB 1000 

400 GOSsUB 2000 

410 PL=1 

420 PRINT P2$;"'"s go...” 
430 PRINTQS; 

440 GOSUB 1000 

450 GOSUB 2000 


460 GOTO 360 


1000 
1010 
1020 
1025 
1030 
1040 
1045 


GET Z$:CLS 

C=VAL(Z$) 

IF Z$="N" THEN 1200 

IF Z$="R" THEN 1400 

REM 

IF C>0O AND C< 8 AND H(C)<6 THEN RETURN 

IF H(C)>5 THEN PRINTCHR$(12)"That column is full!! - try again 


“:GOTO 1000 


1050 
1060 
1200 
1210 
1220 
1230 
1400 
1410 
1420 
1430 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2500 
2510 
2520 


PRINT"Out of range!!! - try again” 

GOTO 1000 

PRINT"New game ? Are you sure (Y/N) 7" 
GET ZS$:IF Z$="Y"THENHIRES:GOSUB30:GOT0260 
IF Z$< >"“N"THEN1210 

PRINT"O.K. , enter column...”:GOTO1000 
PRINT"“Re-run ? Are you sure ?” 

GETZ$:IF Z$="Y"THENRUN 

IF Z$<>"“N"THEN1410 

G0T01230 

IF PL#0 THEN CL#1 FLSE CL=3 

X=12+(C-1)*30 

Y=161-H(C)*30 

CURSET X,Y,3 

FILL 29,1,CL 

X=35+(C-1)*30 

CURSET X,Y,3 

FILL 29,1,7 

X=25+(C-1)*30 

Y=175-H(C)*30 

CURSET X,Y,3:PLAY1,0,1,1 
MUSIC1,CL,5,2:FORR#=1TO5 

CIRCLER,1 

NEXT R:PLAYO,0,0,0 

H(C)=H(C)+1:M=M+1 

IF M<42 THEN RETURN 
PLAY1,0,0,0:FORV=15TOLSTEP-1:FORF=40TO250STEP15:Z$=KEYS 
SOUND1,F,V:NEXTF,V:PLAY0,0,0,0 
PRINTCHR$(12)"“The board is full !!!" 
WAIT200:PRINTCHRS$(12)"Get ready for a new game !":WAIT200 
PRINTFRE(“") :HIRES:GOSUB30:GOTO260 
FORY*£A000TO£BDBOSTEP40 

POKEY,6:NEXT 

Qs=" “+CHRS (27 )+"L"+CHRS (27 )+"G"+CHRS$(27)+"P"+"Enter co 


lumrn... 


2525 
2530 
2540 
3000 


3010 


3020 


OS=QS+CHRS$ (27 )+"W"+CHRS (10)+CHRS$ (13) 

Q$=Qst"('R' to re-run ,'N' for a new game)” 

RETURN 

P1$=" "+CHRS(27)+"G"+CHRS (27 )+"P"+P1S+CHRS$ (27 )+"W"+CHRS(27)+"@ 


P2S=" “+CURS (27 )+"G"+CHRS (27 )+"P"+P2S+CHRS (27 )+"W"+CHRS (27 )+"@ 


RETURN 
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Features 


Oric-Base revealed 


Using the 
Oricbase 
Program 


This is the first in a series of 
articles looking at the Oric-base 
database program. 


In this issue, I will present a 
couple of ‘fixes’ for those of you 
who are experiencing problems 
in using the program. 


By the time you read this article, 
new Oricbase programs will 
have been corrected — so check 
your program before altering it. 


Corrected programs will show 
up as ‘ORICBASE V.2’. 


By G. M. Phillips 


Program 
Errors 


First of all, there are two REAL 
errors which can be corrected. 


The first is that SUBTRACT 
may produce the wrong sign — 2 
from 5 giving —3, for example. 


To correct this, load up Oric- 
base, press CONTROL and C 
until the message READY 
appears, and type: 


8510 O9$=STR$(O4- 
03):GOTO8690 


thus swapping around the 03 and 
04. 


Whilst you are doing this, you 
may as well correct the minor 
fault whereby DUMP can print 
fields that are slightly out of 
place, after calculations have 
been done. Type in: 

8711 IF ASC(O9$)=2 THEN 
09$=MID$(O9$,2) 


This fault is due to one of the 
bugs in Oric Basic. 


Loading 
problems 


If you cannot load at fast speed, 
I would recommend that you 
load up at slow, and _ then 
CSAVE at fast either back on to 
the Oricbase cassette or onto 
another cassette. You will 
almost certainly have more luck 
with your own recording at fast 
—and if not then you cannot 
blame Oricbase for that! 


File Handling 


If you are using the RELAY 
connections on the cassette 
recorder, then loading and sav- 
ing files of data should be suc- 
cessful, but if not then read on: 
If you have a file of reasonable 
size, Oricbase may ‘miss’ your 
macro file, and perpetually wait 
for it on the tape. 


One solution, if your tape does 
not have a relay feature is to 
rewind the tape to the second 
file if Oricbase misses it the first 
time around. 
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A better solution — which will 


be implemented on future ver- 
sions of this program, so check 
to see if this is a problem first — 
is to change a couple of lines in 
the program. This will not take 
you more than a minute: 


1077 
B85B,D$ 
1130 
B85B,M$ 


POKE#67,0:CALL# 


POKE#67,0:CALL# 


The fault here lies with the 
‘standard’ cassette file routines 
which have the irritating ten- 


ORIC - BASE 


O, SOFTWARE 
(Ri SERIES! 


dency to call Garbage collec- 
tion. 


Once you have made this correc- 
tion, both data and macros 
should load with no difficulty. If 
not, then try cleaning your tape 
heads. Also beware of putting 
impossible sized files on Oric- 
base. 


These four lines are all you need 
to change — once you have done 
this, resave the program back 
onto another cassette (or onto 
the fast side of the Oricbase 


tape). 


The ‘FIND’ 
command 


One of the most common misun- 
derstandings about Oricbase is 
in conjunction with the FIND 
command. 


The FIND can only compare 
fields against actual values, 
numeric or string, and not 
against registers (e.g. #1) or 
other fields (e.g. NAME). 


For example, if a file contains 
fieldnames: NAME, AGE, 
PHONE, then FIND NAME < 
PHONE is INVALID. To Oric- 
base, you are asking for any 
names, which have a value less 
than ‘PHONE’ — such as 
JONES, MALCOLM, but not 
PHOTO or SMITH. 


If you want to do this kind of 
thing, you would have to use a 

IND that encompasses your 
whole file, followed by an IF 
statement after the ATR com- 
mand. 


e.g. FIND NAME >“ ” ATR 
IF VALUE1 < VALUE2 
PRINT NAME ENDIF 


The next article will discuss 
some of the ways that you can 
use FIND in more detail than 
the manual. So dust off your 
Oricbase cassettes, correct those 
four lines, if necessary, and get 
Oricbasing! 
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Features 


Hints & Tips 


By T. M. Mughal 


Flashing Rems 


This short routine provides a 
flashing REM’s facility. If you 
want a REM statement to flash 
in your program listing just put 
TWO spaces immediately after 
the REM. 


i.e. <line-no> REM <spac- 
e><space><comment> 


Then when you have written 
your program type: GOSUB 
60000. Then list your program. 
All your REM statements which 
had two spaces after the REM 
will be flashing. 


(If you don’t want a REM to 
flash then don’t put two spaces 
between the REM and the com- 
ment). 


Computed 


Restore 
Routine 


The ORIC-1’s RESTORE facil- 
ity does not allow the flexibility 
of RESTORE’ing the data 
pointes to a particular line num- 
bers. i.e. RESTORE <line-no> 
is not allowed. 


The ORIC-1 RESTORE just 
sets the data pointer to the first 
data item in the program. 


The COMPUTED RESTORE 
ROUTINE allows the equiva- 
lent of RESTORE <line-no>. 
To use it, type: 


XX = 
60000 


<line-no>: GOSUB 


where <line-no> is the line 
number you want the data 
pointer set to. 


The routine is fairly well mug- 
trapped: 

If you set XX to a non-existent 
line number, it will RETURN 
without executing. 


If you set XX to a line number 
which does not have DATA as 
its first statement, the routine 
will RETURN without execu- 
ting. 


All this in just seven lines! 
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Hints & Tips 


By B. Edel 


The first routine (Listing 1) 
returns the row and column val- 
ues of the cursor place after 
positioning it with the four cur- 
sor control keys from keyboard. 
The values are affected continu- 
ously to the variables ROW and 
COL until the RETURN key is 
pressed. The program is written 
so that the cursor cannot pass 
the upper or lower limit of the 
screen board. 


The consequence is that the 
scrollins of the screen is not 
possible. 


If the current position of the 
cursor is unknown, call the rou- 
tine at line 10000. The cursor 
will so home before the variables 
are initialized with the corre- 


sponding values (i.e. ROW=1 
and COL=~1). If not, skip the 
input lines and call at line 10030. 
After manipulation with the cur- 
sor control keys, press the 
RETURN key to end the rou- 
tine. All other keys will have no 
effect. The values of the vari- 
ables are showed in the screen 
last row. If the display is not 
wanted, the PLOT statements 
can be removed in the following 
lines of the program: 10220, 
10230 and 10240. 


If the program is called with a 
GOSUB, replace the END at 
line 10260 with a RETURN 
statement. 


The other routine (Listing 2) 
allows the user to send the cur- 


sor to a predetermined row and 
column. If the values of row and 
column must be entered through 
the keyboard, then call the rou- 
tine at line 20000. If these values 
are computed in the main pro- 
gram, affect this to the variables 
ROW and COL respectively and 
call at line 20030. 


If the routine is called with a 
GOSUB, replace the END in 
line 20130 with RETURN. 


CAUTION: In accordance with 
the ORIC manual, 
the values of the 
rows are 0) to 26, 
and the values of 
columns are —1 to 
38. 
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FLASHING REMS 


60000 L=1281 

60010 NXT=DEEK(L):IF NXT=$ THEN RETURN 

60020 IF PEEK(L+4)=157 AND DEEK(L+5)=8224 THEN 60040 
60030 L=NXT:GOTO 60010 


60040 DOKE L+5,19483:GOTO 60030 


COMPUTED RESTORE ROUTINE 


L=1281 

NXT=DEEK(L): IF NXT=@ THEN RETURN 
IF DEEK(L+2)=XX THEN 60050 

IF DEEK(L+2)>XX THEN RETURN 


L=NXT:GOTO 60010 


IF PEEK(L+4)=145 THEN DOKE 176,L-1 


RETURN 


10000 REM * RETURN CURSOR-POSITION * 
10010 PRINT CHR$(30) 

10020 LET ROW=1 ! LET COL=-i 

19030 GET W$ 

10040 IF W$=CHR$(13) THEN 10240 
10050 IF W$=CHR$(11) THEN 10100 
10060 IF W$=CHRS$ (10) THEN 10120 
10070 IF WS=CHR$(9) THEN 10140 

10080 IF W$=CHR$(&) THEN 10180 

10090 GOTO 10030 


10100 LET ROW=ROW-1t } IF ROW>-1 THEN 10220 


10116 LET ROW=0 : GOTO 10030 


10120 LET ROW=ROW+1 $ IF ROW<27 THEN 10220 


10130 LET ROW=26 | GOTO 10030 

10140 LET COL=COL+1 

10150 IF COL¢39 THEN 10220 

10160 IF ROW=26 THEN COL=38 ELSE COL=-1 
10170 GOTO 10030 

10180 LET COL=COL-1 

10190 IF COL>-2 THEN 10220 

10200 IF ROW=0 THEN COL=-1 ELSE COL=328 : 
10210 GOTO 10030 

10220 PRINT W$+! PLOT 1,24,CHR$(2) 
10230 PLOT 20,26, "COL="+STR#(COL)+" 
10240 PLOT 10,26,"ROW="+STR$ (ROW) +" 
10250 GOTO 10030 

10260 END 


Listing 1 


20000 REM * CURSOR POSITIONING # 
20010 INPUT "ROW CURSOR WANTED": ROW 
20020 INPUT "COL CURSOR WANTED"?COL 
20030 PRINT CHR$(30) 


20046 IF COL<-1 OR COL>38 THEN PRINT "“COL.ERROR" + GOTO 20130 


20050 IF COL=-1 THEN 20080 
20060 FOR I=0 TO COL 
20070 PRINT CHR$(9)+! NEXT I 


20080 IF ROW<O OR ROW>24 THEN PRINT “ROW ERROR" $ GOTO 20136 
20090 IF ROW=0 THEN PRINT CHR$(11)'! GOTO 20130 


20100 IF ROW=1 THEN 20130 
20110 FOR I=2 TO ROW 

20126 PRINT CHR$(10)+% NEXT I 
20130 WAIT 100 } END 


Listing 2 


$ GOTO 10120 


GOTO 10100 
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Features 


Composite Video From The Oric 
1 Microcomputer 


The Oric 1 provides an output to 
an RGB |colour monitor. There 
are occasions, however, when a 
composite video signal may be 
required. 


I needed this signal, for exam- 
ple, to take screen dumps using 
an electrothermal printer. It 
would also be required if the 
micro were to be linked to a low 
cost black and white monitor. 


One method of getting this sig- 
nal is to open up the Oric and 
take a line out from the input to 
the TV signal modulator. This 
has three major disadvantages: 


1. It invalidates the guarantee. 
2. You have to work out exactly 
where to solder on your wire — 
and can damage the machine 
while doing so. 

3.The signal thus obtained is 
very weak. 


A better method is to make up a 
connector which takes the Red, 
Green and Blue signals from the 
RGB outlet and mixes them to 
form a composite signal. This 


By I. McLean 


sounds more complicated than it 
is. A simple resistor mixer is all 
that is required. 


The circuit is: 


RGB outlet 


The components required are 
three 100 ohm resistors (1/4 
watt, 10% tolerance types are 
adequate), a 5 pin DIN plug and 
a co-axial video input plug 
(similar to a TV input plug). It 
may be necessary to cannibalise 
two cable connectors to get the 
plugs, but these are cheap and 
readily obtainable. 


The physical locations of pins 1 
to 5 are normally marked on the 


Ground 


Composite 
signal 


DIN plug. If not, page 151 of the 
User Manual gives the necessary 
information. 


The signal generated will not 
give colour, although it could be 
adapted to do so. If colour is 


‘important to you then stick with 


an RGB monitor or a colour 
television. 
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TAKE YOUR ORIC TO THE LIMITS -AND BEYOND 


The Oric Handbook 


PETER LUPTON and 
FRAZER ROBINSON 


The Oric Handbook offers its 
readers the opportunity of 
harnessing the power of one of 
the newest and most exciting 
microcomputers. A clear step-by- 
Step introduction opens the Oric 
to the beginner while the wealth 
of hints and tips, exciting 
programs and applications makes 
the book essential reading for 
even the experienced 


programmer. There are also 
lengthy sections on sound and 
graphic capabilities which are 
particularly impressive features of 
the Oric. 


The book contains full details 
of the differences between the 
old and new ORIC ROM and 
also documents all the new 
features and commands. 


224pp £5.95 


Available through your local bookshop 
or if you experience any difficulty 
please fill in the form below 


ORDER FORM l enclose my cheque/postal order for £6.50 per 

copy 

Please make payable to George Philip 

To: George Philip Services Ltd, 
Arndale Road, Wick, Littlehampton, Name 
West Sussex BN17 7EN 


Address 


Please send me copy/copies of 
THE ORIC HANDBOOK by PETER LUPTON and 
FRAZER ROBINSON at £6.50 per copy (post paid) 


Please allow up to 28 days for delivery 


Features 


We will be featuring extracts from the Oric Handbook (pictured opposite), 
in this and the coming issues of Oric Owner. This time we are featuring 
Chapters 3 and 4 on Communication & Programming. 


CHAPTER 3 
COMMUNICATION 


Before you can write programs for your ORIC, 
you must find out how to communicate with it. 


Communication is a two-way process: you must 
give the ORIC instructions, and you must be able 
to find out how it responds to them. You give 
instructions using the keyboard, and the ORIC 
displays its response on the TV screen. 


Type the following phrase on the keyboard. 
PRINT “ORIC-1” 


You will see the letters appear on the screen as 
you type them, and hear a ‘click’ as you press each 
key. The flashing square — called the cursor — will 
move to indicate where the next letter you type 
will appear. Nothing else happens though — the 
ORIC has not yet obeyed your instruction. 


Now press the RETURN key. The words 
‘ORIC-1’ appear on the screen, and the word 
‘Ready’ is printed to tell you that the ORIC is 
waiting for your next command. (If instead of 
printing ‘ORIC-1’ the computer prints 
‘9SYNTAX ERROR’ or 0, it means you have 
made a typing mistake. Try again!) 


So, to give the ORIC a command you type it at the 
keyboard and press RETURN. Try another 
command: 


PRINT “HELLO!” 


Again, the letters between the quotation marks 
are printed. You can tell the ORIC to print any 
sequence of letters, but you must remember to put 
them between quotation marks. Try making it 
print your name. 


You don’t have to type PRINT in full 
everytime — the question mark has the same 
meaning to the ORIC. Try 


? “HELLO!” 
(remembering to press RETURN, of course). 


MANAGING THE DISPLAY 


As well as typing on to the screen, there are a 
number of different ways to alter the display. 


The Cursor 


This can be moved around the screen using the 
keys marked with arrows at either end of the space 
bar. Try moving the cursor around, and watch 
what happens when it gets to the edge of the 
picture: when it reaches one side it reappears at 
the other side, but when the cursor reaches the top 
or bottom of the screen the picture starts to move 
in the opposite direction. This vertical movement 
is called scrolling. Notice that anything that 
disappears at the top or bottom when the picture 
scrolls cannot be recovered by scrolling the other 
way: it is lost for ever. 


Corrections 
If you notice that you have made a typing mistake 
before you press RETURN, you can correct the 
error by using the DEL key. For example, if you 
type 

PRONT “ORIC” 


and then realise your mistake, press DEL until the 
first O is erased and then retype the rest of the 
line. 


There is another way of making corrections, or 
editing what you have typed, which is more 
convenient for major corrections than retyping. 


NOTE You can not make corrections by moving 
the cursor over the error with the arrowed 
keys and then retyping. The ORIC. will 
not understand what you have done and 
will display the ‘?SYNTAX ERROR’ 
message. 


Clearing the screen 


This can be done in two ways. You can either hold 
down the CTRL key and press L, or type CLS and 
press RETURN. 
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NUMBERS 


As well as printing words, the ORIC can also 
handle numbers. Try 


PRINT 5 (RETURN) 
You can do arithmetic. 
Addition: 

PRINT 5+3 
Subtraction: 

PRINT 7-4 
Multiplication: 

PRINT 3*5 
Division: 

PRINT 15/6 
Powers(exponentiation): 

PRINT 3 f 2 


You can ask the ORIC to calculate longer 
expressions, such as: 


PRINT 3*5 + (5—3)/(2+1) * 7/8 


In working out expressions like this, the ORIC 
follows strict rules about the order in which the 
various arithmetical operations are performed. 


First The expressions inside brackets are 


evaluated. 

Second Any powers (squares, cubes, etc.) 
indicated by 7 are worked out. 

Third The ORIC performs the multiplications 
and divisions. 

Fourth The additions and subtractions are 


performed. 


If you are unsure, put brackets round the bit you 
want calculated first. Try the following examples, 
and see if you can work out the answers yourself to 
check that you know what the ORIC is doing. 


PRINT 2*2+2*2 
PRINT 2+ 2*2+2 
PRINT 6+3/5—-4 
PRINT 3 ¢ 24+4 f 3/2 
PRINT (3 + 4) *2 


COLOUR 


The colours of the writing on the screen and of the 
background can be changed. The foreground 
colour (the colour of the writing) is altered by the 
command INK and the number of the desired 
colour. Try this: 


INK 1 
The writing on the screen will turn red. 


The background is changed in a similar way by the 
PAPER command. 


PAPER 3 
will turn the background yellow. 


There are eight colours, and their numbers are as 
follows: 


BLACK 0 
RED 1 
GREEN 2 
YELLOW 3 
BLUE + 
MAGENTA 5 
CYAN 6 
WHITE i 


Try changing the foreground and background 
colours to test the possibilities. If all the writing on 
the screen disappears don’t panic; you will have 
set the INK and PAPER to the same colour. The 
ORIC will still understand commands, even if you 
can’t see what you are typing. 


SOUNDS 


There are four special sounds which the ORIC will 
make in response to your commands. These are: 


PING 
SHOOT 
ZAP 
EXPLODE 


To hear a sound, type the name and press 
RETURN. 
MULTIPLE COMMANDS 


You can put more than one instruction in one 
command if you separate the instructions with 
colons(:). Try this: 
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CLS: PRINT “3 + 4 = “3+4: PING 
Or this: 


CLS: PAPER 3: INK 4: ZAP: PRINT: PRINT 
“BANG!”: EXPLODE 


It doesn’t matter if you run over the end of the line 
on the screen, as long as there are no more than 78 
characters altogether in the command (including 
the spaces). The ORIC will warn you by making 
the ‘PING’ sound when you get near the limit. 


Entering a number of instructions together like 
this can get very cumbersome. In the next chapter 
we will discover a way of giving the computer a 
very large number of instructions all at once — the 
PROGRAM. 


SUMMARY 
PRINT tells the ORIC to print something. 
PRINT “ABCDEFG” 


prints the characters between the quotation 
marks. 


PRINT 3+4 


prints the result of the sum. 
These can be combined: 


PRINT “3+4*54+7 = “ 3+4*5+7 
SOUNDS ZAP 
SHOOT 
PING 
EXPLODE 


INK changes the foreground, 
PAPER changes the background. 


Both INK and PAPER must be 
followed by a number between 0 
and 7. 


MULTIPLE COMMANDS must be separated by 
colons(:). 


COLOURS 


CHAPTER 4 
PROGRAMMING 


At the end of Chapter 3, we saw that it is possible 
to give the ORIC a number of instructions at one 


time by writing them one after another on one 
line. We will now look at a much more powerful 
way of doing this — the program. 


A computer program is a number list of computer 
instructions which are entered together and stored 
by the computer to be obeyed later. Let’s look at 
the last example of Chapter 3 and see how we can 
turn it into a program. In Chapter 3 we had: 


CLS: PAPER 3: INK 4: ZAP: PRINT: PRINT 
“BANG!”: EXPLODE 


Rewritten as a program it looks like this: 


10 CLS 

20 PAPER 3 

30 INK 4 

40 ZAP 

50 PRINT 

60 PRINT “BANG!” 
70 EXPLODE 


Type in each line in turn (remembering to press 
RETURN after each). You will see that the ORIC 
does not obey the instructions as they are entered, 
and that the ‘READY’ message does not appear 
after you press RETURN. The ORIC recognises 
that each line is part of a program, because each 
begins with a number, and the program is stored 
for future use. 


When you have typed in all the lines, you can 
inspect the stored program by typing LIST (and 
pressing RETURN, of course). The instructions 
are listed in numerical order on the screen. You 
can list parts of the program by specifying line 
numbers. For example: 


LIST 30-50 lists all lines from 30 to 50 

LIST 20 lists only line 20 

LIST — 30 __ lists all lines up to and including 
line 30 

LIST 30- lists all lines from line 30 to the 


end of the program 


To order the computer to act on the program 
instructions use the command RUN (followed by 
RETURN). This tells the ORIC to read through 
the stored program and obey each instruction in 
order. You will see that the program gives exactly 
the same results as the multiple instructions in 
Chapter 3. (If it doesn’t, and the ORIC prints a 
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message such as ‘SYNTAX ERROR IN LINE 
20’, it means there is a typing mistake in that line 
and the ORIC cannot understand the instruction. 
LIST the line to check, and retype it.) 


A program can be RUN as many times as you like. 
It will be stored in the computer’s memory until 
you switch it off, unless you alter or delete the 
program. 


It is possible to begin execution of a program from 
a line other than the first by specifying the line 
number. For example RUN 20 begins the program 
at line 20, and line 10, the CLS instruction, is 
ignored. 


Programs can be altered or added to at will. To 
alter an instruction, retype the line. If you enter: 


20 PAPER 1 


the original line 20 will be replaced by the new 
one, and the next time you RUN the program the 
screen will turn red instead of yellow. (To restore 
the black and white screen after running the 
program you can type 


PAPER 7: INK 0 

and press RETURN.) 

Extra lines are added by typing them as before: 
35 ZAP: ZAP: ZAP 


makes the program even noisier. Notice that the 
ORIC inserts the extra line in the appropriate 
place: it is not put at the end. 


NOTE It is a good idea always to number 
program lines in steps of 10 to allow extra 
or forgotten lines to be inserted without 
having to renumber the whole program. 


To delete a line, type the line number and press 
RETURN. The line is deleted from the list in the 
ORIC’s memory. 


Now see if you can alter the example program to 
give different INK and PAPER colours, and to 
PRINT different words on the screen. 


When you have exhausted the possibilities of this 
program, you can use the command NEW to 
delete the whole program. You will then be ready 
for the next program. 


PRETTY PATTERNS 


Here is a more interesting program for you to try. 
The program draws a pattern like the one shown 
in the diagram below, using the ORIC’s high 
resolution graphics facilities. Many of the 
commands used will be unfamiliar to you at 
present, but you need not worry about that. Just 
type in the program and watch what it does. 


Sees 2542 ee -— 
EAS 
Ly? ~ 
Hy SS 
ty x 
iY 
Ny WY 
ny fe 
ue, ie 
‘i iN mi 
FAWN ; 
ty Ry \ 4 
H SS LL, 
L Se ee 
piesa tH 
10 TEXT 
20 PAPER6: INK4 
30 HIRES 


40 PAPER6: INK4 
50 PRINT CHR$(17) 


100 CURSET 20,0,1 
110 DRAW 200,0,1 
120 DRAW 0,199,1 
130 DRAW —200,0,1 
140 DRAW 0,-199,1 


200 FOR X=0 TO 199 STEP 3 
210 CURSET 21,X,3 

220 DRAW X, 199—X, 1 

230 DRAW 199—-X, —X, 1 
240 DRAW —X, X-—199, 1 
250 DRAW X—200, X, 1 

260 NEXT X 


300 PRINT CHR$(17) 
310 END 


Check the program carefully for typing errors, 
and then RUN it. If the program stops and the 
message ‘?SYNTAX ERROR IN LINE xxx’ is 
printed, it means you have made a typing mistake 
in that line. If any other error message is printed, 
check the whole of the program for mistakes. 


To restore the normal display after running the 
program, type TEXT and press RETURN. The 
screen can not be cleared by CLS or CTRL and L 
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because the pattern is drawn in high resolution 
mode. This will all be made clear in Chapter 13, so 
don’t worry about it at this stage. 


ARITHMETIC IN PROGRAMS - VARIABLES 


We discovered in Chapter 3 that the ORIC will 
print the answers to arithmetical problems in 
response to commands such as 


PRINT 3+5 


This sort of instruction can be included in a 
program like this: 


10 CLS 
20 PRINT “3+5 = “3+5 


but it would be difficult to make much use of this 
for working out your personal finances. 


What gives a computer the power to perform 
complex data processing (or ‘number crunching’) 
tasks is its ability to do algebra: to use names as 
symbols for numbers. This means that programs 
can be written with names to symbolise numbers, 
and then RUN with different numbers attached to 
the names. These number names are called 
VARIABLES because they represent varying 
numbers. Let’s try an example. 


| 


HEIGHT 


AREA = WIDTH x HEIGHT 


ee A 8 eee 


The area of a rectangle is equal to the width of the 
rectangle multiplied by the height. By using 
names instead of numbers we can write a program 
to work out the area of any rectangle. For 
example: 


10 WIDTH = 8 

20 HEIGHT = 12 

30 AREA = WIDTH * HEIGHT 
40 PRINT “AREA = “ AREA 


This program, when RUN, will print the area of a 
rectangle 12 inches by 8 inches. By changing the 


numbers in lines 10 and 20 we can obtain the area 
of a rectangle of any size. 


VARIABLE NAMES 


Any number of letters can be used in a variable 
name, but only the first two characters of the 
name are considered by the ORIC; the rest are 
ignored. This means for example that if you use 
the names 


FR 
FRUIT 
FRIEDEGG 


the computer will treat them as the same variable. 


All variable names must begin with a letter, but 
the other characters may be numbers, for example 
Al, EGG7, LAST1. There must not be any spaces 
in a variables name: this will confuse the ORIC. 


NOTE You cannot use as a variable name any of 
the BASIC command words, or any name 
which includes a command word. If you 
do, your program will not run, but will 
give SYNTAX ERROR __ messages 
wherever the name is used. For example, 
LENGTH contains LEN, and 
BREADTH contains READ, both of 
which are BASIC words. (See Appendix 1 
for a full list of all the BASIC reserved 
words. ) 


TYPES OF VARIABLE 


There are three different types of variable, two of 
which represent numbers, the third representing 
words. The types which represent numbers are 
real and integer variables; the type representing 
words are called string variables because they 
contain sequences or ‘strings’ of characters. The 
variables in the program above are real variables. 


Real Variables 


These are used to represent numbers and can have 
any value, whole numbers or fractions. Real 
variables should be used in all arithmetical 
programs. 
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Integer Variables 


These can only represent whole numbers (or 
integers), not fractions. They may be used when 
counting events or objects, or to store constant 
integer values. For example, a program which 
kept a record of the number of chocolate bars in 
stock at a shop could use integer variables to count 
them, but the takings of the shop would have to be 
stored in real variables, or fractions of pounds 
(i.e. pennies) would be ignored. 


Integer variables must be identified by the % sign 
after the variable name, as in CHOCBARS%. 


So numbers can be represented in two ways: by 
real variables and integer variables. Real variables 
can have any value. For example: 


REAL = 3.72 
SIZE = 87.3 * 2.5 


are both real variables. Integer variables must be 
whole numbers: 


NUMBER% = 3+6 
COUNT% = COUNT% + 1 
CHOCBARS% = 1000000 


If you try to give an integer variable a fractional 
value only the whole number part is stored. So 


10 NUMBER% = 7.5 
20 PRINT NUMBER% 


will print the value 7. 


String Variables 


A string variable is used to stored words or letters. 
The variable name for a string variable must be 
followed by a dollar sign ($) to distinguish it from 
the other types of variable. Examples are: 


NAME$ = “WINSTON CHURCHILL” 
STRING$ = “ABCDEFG” 


Note that the letters defining the variable contents 
are enclosed by quotation marks. 


The maximum number of characters a string 
variable can hold is 255. If you try to make a string 
longer than that the ORIC will display the 
message ‘STRING TOO LONG ERROR’. 
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NOTE It is possible to have variables of different 
types with the same name, such as: 


NAME_= = 87.76 
NAME% = 3 
NAME$ = “GEORGE WASHINGTON” 


The computer will not be confused, but you 
might, so be careful. 


ARRAYS 


Each of the three types of BASIC variable, real, 
integer and string, may be used in an array form. 
In normal use a variable name represents one 
stored number or string. In an array, the variable 
name represents a_ collection of stored 
information, with one or more reference numbers 
identifying the individual items. An array can be 
pictured as a collection of boxes. Here is a 
diagram of an array which uses one reference 
number. 


The array is a string array and has 6 elements 
numbered from 0 to 5. The array would be used 
like this: 


REFERENCE 


NUMBER CONTENTS 
0 LUCY 
if JULIE 
Zz _ MIKE 
3 DAVE 
= CAROL 
5 SUE 
Array NAME$ 
10 NAME$(0) = “LUCY” 


20 NAME$(1) = “JULIE” 

30 NAMES$(2) = “MIKE” 
= “DAVE” 

50 NAMES$(4) = “CAROL” 
= “SUE” 


100 FORN = 0TOS 
110 PRINT N, NAMES) 
120 NEXT N 


As mentioned above, an array may have more 
than one reference number. The number of 
Deterence: niet per item is called the number 
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of dimensions of the array. Here is a program 
using an array with two reference numbers per 
item: 


10 DIM P$(2,2) 

20 P$(0,0) = “FLORENCE” 

30 P$(0,1) = “NIGHTINGALE” 
40 P$(1,0) = “GEORGE” 

50 P$(1,1) “WASHINGTON” 
60 P$(2,0) = “ISAAC” 

70 P$(2,1) = “NEWTON” 


100 FOR A = 0TO2 

110 FORB =0TO1 
120 PRINT P$(A,B);“ —”; 
130 NEXT B 

140 PRINT 

150 NEXT A 


Here again the array can be thought of as a 
collection of storage boxes, this time laid out in a 
grid as shown below. 


B=0 B=1 
A=0 FLORENCE NIGHTINGALE 
A=1 GEORGE WASHINGTON 
A=2 ISAAC NEWTON 


Array P$ 


You can use arrays with more than two 
dimensions, but you will find the ORIC’s memory 
will not hold arrays of more than about four 
dimensions (the exact number depends on the 
number of elements in each dimension). The 
maximum allowed value of each reference 
number may be anything up to several thousand, 
but this depends on how much memory is occu- 
pied by the program itself, and by the other 
variables of the program. 


A DIM command must be included at the 
beginning of any program which will use arrays of 
more than one dimension, or with more than 
eleven elements (0-10). The command tell the 
ORIC to reserve memory space for the array. You 
do not need a DIM command if you are using 
one-dimensional arrays with no more than eleven 
elements numbered from 0 to 10, as the ORIC is 
able to handle these automatically. 


GETTING VALUES INTO PROGRAMS 


It would be very inconvenient to have to alter a 
program to make it handle different numbers, so 
there. are a number of instructions which allow 
numbers or letters to be given to a program while 
it is running. The first of these is INPUT. 


When the computer finds an INPUT statement in 
a program, a question mark is displayed on the 
screen. The computer waits for you to type in a 
number or letter string, which it will then store ina 
variable before continuing with the rest of the 
program. Type NEW (RETURN) and then try 
this example: 


10 INPUT NUMBER 
20 PRINT NUMBER 


When you RUN this program you will see a 
question mark on the screen. Type a number and 
press RETURN: the number is printed. 


NOTE If you typed anything other than a number 
the computer would print the message 
‘REDO FROM START”. It would then 
display another question mark and wait 
for you to type the number in again. This is 
because the variable NUMBER is a real 
variable and can only store numbers. If 
you press RETURN without typing 
anything, another question mark is 
displayed on the next line and the ORIC 
continues to wait for you to enter a 
number. 


The INPUT instruction can handle strings too, if 
you specify a string variable in the INPUT 
command: 


10 INPUT NAME$ 
20 PRINT NAME$ 


This program will accept both numbers and letters 
and store them in a string variable. 


Messages can be printed before the question mark 
to tell the person using the program what to type 
in. Change line 10 to: 


10 INPUT “TYPE A WORD”; NAME$ 


and RUN the program again. You can use any 
message you like, but it must be contained within 
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quotation marks, and there must always be a 
semicolon between the message and the variable 
which will store the number. 


It is possible to use one INPUT command to input 
two or more numbers or strings. 


10 INPUT “NAME, AGE”; NAME$, AGE 
20 PRINT NAME$ 
30 PRINT AGE 


The variables must have commas separating them 
in the INPUT command; and when you type in the 
information you must use a comma to separate the 
items. If you press RETURN before entering all 
the items the ORIC will print two question marks 
and wait for the remaining items. If you enter too 
many items the surplus ones will be ignored and 
the ORIC will print ‘7EXTRA IGNORED’. 


Let’s use what we know about variables and 
INPUT to improve the area program. Clear the 
ORIC memory by typing NEW (RETURN), and 
then type in this program. 


10 REM IMPROVED AREA PROGRAM 

20. CLS 

30 INPUT “ENTER WIDTH”; WIDTH 

40 INPUT “ENTER HEIGHT”; HEIGHT 

50 AREA = WIDTH * HEIGHT ‘FIND 
AREA 

60 PRINT: PRINT “AREA = “ AREA 


This program will read the two numbers you type 
in for width and height and print the area of the 
rectangle. Using INPUT has made the program 
much more flexible: we don’t have to alter the 
program to use different numbers. 


REMARKS 


Line 10 of the last program is a remark or 
comment statement. These are used to hold 
comments, notes and titles to make the purpose of 
a program and the way in which it works clear to 
someone reading the listing. Remarks are 
identified by the word REM before the remark 
and have no effect when the program is RUN. 


Comments may be added to the ends of program 
lines, as in line 50. The apostrophe (’) indicates 
the end of the instruction and the beginning of the 
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comment: everything after the apostrophe is 
ignored by the ORIC when running the program. 
You should always put plenty of remarks in 
programs, because although you may understand 
how a program works when you write it, three 
months later you will have forgotten. If you need 
to modify a program at some time after writing it, 
remarks will make it much easier to remember 
how the program works. 


SUMMARY 


PROGRAMS 


A program is a sequence of computer 
instructions, identified by numbers. 


LIST displays the lines of a program. 
RUN 


NEW deletes a program from the computer’s 
memory. 


starts the execution of a program. 


VARIABLES 

Variables represent numbers and words in 
programs. 

There are three types of variable: 


Real _ representing any numbers. 


Integer representing whole numbers, and 
distinguished by % at the end of the 
variable name. 


String representing words, and distinguished by 
$ after the name. 


INPUT is used to enter number or words into 
variables while a program is running. 


Variables may be collected in arrays, with the 
same variable name, but distinguishing reference 
numbers. 


REMARKS 
REM is used to put remarks into programs for the 
programmer’s benefit. 


Comments may be added to the ends of program 
lines following an apostrophe(’). 


NEXT ISSUE: We will look at Low and Hi-Res 
Graphics. 
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Take Home Pay 


Calculation 
By D. Lam 


This program applies to the majority of people in employment irrespec- 
tive of sex and the level of income. Having answered a few straightfor- 
ward questions, the taxpayer should be able to check or confirm his/her 
take home pay. 


Glossary: 

(1) GP=Gross Annual Salary 

(2) PA=Personal Allowance 

(3) TI=Taxable Income 

(4) TP=Total Pension Contribution 

(5) TN=Total National Insurance 

(6) TL=Total Tax Liability 

(7) TH=Take Home Pay for 83/84 

(8) MH=Monthly Take Home Pay 

Note: For elderly taxpayers (aged sixty-five or over), replace the figure 1780 in i lines 110 
& 140 by 2360 AND the figure 2790 in line 150 by 3750. 


Example of Screen Display 
NAME: A. N. OTHER 


TAX YEAR 83/84 

YOUR GROSS SALARY £20000 
LESS: 

PENSION CONTRIBUTION £600 
NATIONAL INSURANCE £873 
INCOME TAX LIABILITY £5184 


YOUR NET TOTAL PAY FOR YEAR £13343 


YOUR MONTHLY TAKE HOME PAY =£1112 


PLEASE CHECK WITH YOUR PAYROLL OFFICER IF YOUR ACTUAL PAY 
DIFFERS FROM ABOVE CALCULATION. THANK YOU. 
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Calculation Listings 


10 REM TAKE HOME PAY CALC 
15 REM FOR TAX YEAR 83/84 
20 REM BY DAVID LAM 
30 CLS: PRINT 
40 INPUT “YOUR NAME, PLEASE”; A$ 
45 PRINT 
50 PRINT “DO YOU KNOW YOUR 
P.A.Y.E. CODE NUMBER (Y OR N)”; 
52 INPUT B$ : PRINT 
54 IF LEFT$ (B$,1) <>“N” AND 
LEFT$(B$,1) <> “Y” THEN PRINT “Y 
OR N”; : GOTO 52 
60 IF LEFT$(B$,1) = “N” THEN 100 
70 IF LEFT$(B$,1) = “Y” THEN PRINT 
“ENTER YOUR CODE NUMBER”; 
75 INPUT C$ 
80 PA=VAL(C$)*10 
90 PRINT:GOTO 170 
100 PRINT “YOUR SEX (M OR F)”; 
105 INPUT D$:PRINT 
108 IF LEFT$(D$,1)<>“F” AND 
LEFT$(D$,1)<>“M” THEN PRINT “M 
OR F”; : GOTO 105 
110 IF LEFT$(D$,1)=“F” THEN 
PA=1780:GOTO 170 
120 IF LEFT$(D$,1)=““M” THEN PRINT 
“ARE YOU SINGLE/MARRIED (S OR 
M)”; 
130 INPUT E$ : PRINT 
135 IF LEFT$(E$,1)<>"“S” AND 
LEFT$(E$,1)<>“M” THEN PRINT “S 
OR M”; : GOTO 130 
140 IF LEFT$(E$,1)=“S” THEN PA=1780 
15@ IF LEFT$(E$,1)=“M” THEN PA=2790 
170 INPUT “ENTER GROSS ANNUAL 
SALARY £”; GP 
180 PRINT 
190 PRINT “ON COMPANY PENSION 
PLAN (Y OR.N)”; 
195 INPUT F$ : PRINT 
198 IF LEFT$(F$,1) <> “N” AND 
LEFT$(F$,1) <> “Y” THEN PRINT “Y 
OR N”; : GOTO 195 
200 IF LEFT$(F$,1)=“N” THEN TP=0: 
GOTO 300 
210 IF LEFT$(F$,1)=“Y” THEN PRINT 
“ENTER MONTHLY DEDUCTION £”; 
220 INPUT P 
230 TP=INT(P*12+0.5) 
240 CA=140.83*0.09 
250 CB=(GP/12-140.83)*0.0685 
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260 IF>CB 60.11 THEN CB=-60.11 

270 CO=CA+CB 

280 TN=INT(CO*12+0.5) 

290 GOTO 330 

300 CI=GP/12*0.09 

310 IF CI>91.66 THEN CI=91.66 

320 TN=INT (CI*12+0.5) 

330 TI=GP—(PA+TP) 

340 IF TI<14600 THEN TL=TI*0.30 

350 IF TI>14600 AND TI<=17200 THEN 
TL=4380+(TI—14600)*0.40 

360 IF TI>17200 AND TI<=21800 THEN 
TL=5420+(TI-17200)*0.45 

370 IF TI>21800 AND TI<=28900 THEN 
TL=7490+(TI—21800)*0.50 

380 IF TI>28900 AND TI<=36000 THEN 
TL=11040+(TI—28900)*0.55 

390 IF TI>36000 THEN TL=14945+ (TI- 
36000)*0.60 

400 TH=GP—(TP+TN+TL) 

410 MH=INT (TH/12+0.5) 

420 WAIT 20:CLS:PRINT 

430 PRINT “NAME:”;A$:PRINT 

440 PRINT “TAX YEAR 83/84”:PRINT 

450 PRINT “YOUR GROSS SALARY 
semen £”;GP 

460 PRINT 

465 PRINT “LESS:” 

470 PRINT “PENSION CONTRIBUTION 
eee £”:TP 

480 PRINT “NATIONAL INSURANCE 
Anni £”:TN 

490 PRINT “INCOME TAX LIABILITY 
oie ina £”sINT(TL+0.5) 

500 PRINT 

510 PLOT 29,11, “-------- » 

520 PRINT “YOUR NET TOTAL PAY FOR 
YEAR £”:TH 

530 PLOT 29,13, “========”" 

540 PRINT : PRINT 

550 PRINT “YOUR MONTHLY TAKE 
HOME PAY = £”;MH 

560 PRINT : PRINT 

570 PRINT “PLEASE CHECK WITH YOUR 
PAYROLL OFFICER IF YOUR 
ACTUAL PAY”; 

580 PRINT “DIFFERS FROM ABOVE 
CALCULATION. THANK YOU” 

600 END. 


2K OK OK Kk 
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And Forthly .. . 
Money Manager 


Objective 


To provide an easily maintained 
database of transaction within a 
current account. 


To enable a future cash flow 
forecast to be generated 
between start and end dates 
given on initial account balance. 
This combination of facilities 
provides, in addition to the cash 
flow management ability, the 
possibility of running ‘What-if’ 
budgets i.e. what-if the wife 
stopped working?! 


User Interface 


1. The Database 

The database allows a maximum 
of 48 records and is backed-up 
by cassette as 3 Forth ‘screens’. 


Each record contains the follow- 
ing fields: 


1. Transaction title — any 


By W. Cain 


meaningful title of up to 16 
characters. 


. Amount — the value of the 


transaction (always entered 
as a _ positive number). 
Allowed formats are £xxxx or 
EXXxX.X Or EXXXX.XX. 


. Credit/Debit — defines the 


direction of the transaction. 
Enter C for credit D for 
debit. 


. Start Date — the start date of 


this type of transaction. 
Entered as DD/MM/YY. 


5. End Date — the end date of 
this type of transaction. 
Entered as DD/MM/YY. 


6. Period — theinterval between 
transactions of this type. 
Entered as DD/MM/YY i.e a 
weekly transaction is entered 
as 7/0/0. 


Records as manipulated by the 
following commands: 


A. ENTER - allows prompted 
entry of a complete record. 
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B. REMOVE ~- asks for the 
record key (transaction 
title), displays the record 
and asks for a confirming Y 
or N to complete the re- 
moval. 


C. CHANGE - asks for the 
record key (transaction 
title), displays the record 
and asks for selection of the 
field to be changed by num- 
ber. Entry of changes is 
identical to entry of fields in 
the ENTER command. 
Multiple changes must be 
done by multiple CHANGE 
commands. 


. DISPLAY - displays the 
records in the database in 
record order. Suspends at 
the end of each screen until 
de-suspended by any key 
press. 


E. DUMP - asks that you posi- 
tion cassette tape and set 
REC/PLAY then dumps 
database to cassette as 3 
Forth screens. 


When the first attempted access 
to the database is made during a 
run of the program it will sus- 
pend and ask whether you want 
to use an existing database or set 
up a new one. A previously 
‘DUMPed’ database may be 
loaded at this point by position- 
ing a cassette and de-suspending 
by any key press. 
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(HINT - if you want to forget 
about the current database dur- 
ing a session you can enter 0 
LOADED!) 


2. Data Analysis 

The cash-flow predictor facility 
is initiated by the command 
FORECAST. 


This will ask for the date of the 
start of the forecast period 
(enter as DD/MM/YY), the date 
of the end of the forecast period 
(enter as DD/MM/YY) and the 
assumed initial account balance. 
This may be entered as a nega- 
tive number signifying a current 
overdraft. 


After a short period during 
which transaction dates are 
advanced into the forecast win- 
dow the transactions will be 
shown in date order in a format 
which approximates to a bank 
statement. The listing will sus- 
pend at the end of a screen and is 
de-suspended by any key press. 


3. Reports 

If a printer is supported the 
following commands will gener- 
ate hard-copy. 


LIST-ITEMS - lists records in 
the database (similar to DIS- 
PLAY). 
FORECAST-REPORT - lists 
transactions in time order 
through the specified forecast 
period (similar to FORE- 
CAST). 


Hints for 
Efficient 
Running 


1. Remove ‘dead’ records i.e. 
those whose finish date is 
prior to any forecast window. 


2. Make the start dates as close 
to any anticipated forecast 
window as you can. This will 
save time when these trans- 
actions are advanced into the 
forecast window. 


3. ‘Difficult’ transactions such 
as electricity bills whose size 
depends on the season may 
be entered as_ separate 
‘annual’ transactions e.g. 
ELEC WINTER, ELEC 
SPRING etc. 


4. Don’t put leading spaces in 
the transaction title. This will 
cause it to be (at least) 
ignored or (at worst) over- 
written. 


e 
Apologies 
Dates in the next century are 
output as DD/MM/YY e.g. 2nd 
December 2014 is 2/12/114. 


Leap years are not handled. 


Setting-up 
The program is supplied as 


seven fairly dense screens of 
Forth source. 


They can be loaded on top of 
any forth system which contains 
at least 


— 


. Basic ORIC Forth 

2. The word— TEXT from 
ORIC Forth Editor 

3. Screens 1 and 4 of the 

ORIC Forth extensions. 


Software 
Compiling time is about 40 
seconds. 


Database commands are practi- 
cally instantaneous. 


In forecast mode transactions 
are processed and sorted at an 
average rate of two every 3 
seconds. 


If a printer is available a further 
two screens may be loaded 
which will support the LIST- 
ITEMS and FORECAST- 
REPORT commands. Printer 
controls are set for the STAR 
DPS10. 


Record Structure 


2. Program 
— RECORD 
— FREE 
— WIPE 


addr DATE 
n PAGE? 


addr SETNXT 


Displacement 
from Origin Length (bytes) 
16 


4 
1 
21 6 
6 
6 
39 6 


18 


Records are mapped as 2 per 128 
byte block. 


Mini-disc allocation starts at 
block 8 and runs to block 32. 


addr 


e 
Implementation 
1. Data 
New data type n VAR creates 
variable allocation for 2n bytes 
and returns variable address. 
Used as 3 VAR for dates DAYS/ 
MONTHS/YEARS 
Used as 2 VAR for current 
balance — double length signed 
number. 

New data type 12CLIST (cir- 
cular list of 12 constant values) 
used as n CLIST returning the 
value of the list indexed by n 


modulo 12. Used in calendar 
calculations — days in month n. 


Type 
byte string 


unsigned integer 


byte 
3 VAR 
3 VAR 
3 VAR 
3 VAR 
unassigned 


Loads block containing.record number 


#REC and returns start address of 


record. 


Sets #REC to the index of the first free 


record (first byte is ‘space’). 


Sets blocks 8-32 to spaces. 
Prints 3VAR at addr as DD/MM/YY. 
Suspends on key press when #N = n with 


message PRESS ANY KEY TO 


CONTINUE. 


record at addr. 


Moves START field into NEXT for 


Oric Owner 35 


Software 


addr UPDNXT - Adds STEP to NEXT for record at addr. 

addr1 addr2 LATERt/f For records at addr1 and addr? returns 
true if NEXT of record 2 is later than 
NEXT of record 1. 

— SETIST - For all valid records sets NEXT to the 
first date equal to or later than the 
date in3 VAR NOW. 

— EARLIEST addr Returns addr of record with the earliest 
NEXT date. 


Other words are more application dependent and deal with I/O and 
screen display. 


And Forthly .. . Listing 


SCREENL 
¢ ( DATABASE PRIMITIVES) 
© CONSTANT TITLE 16 CONSTANT AMOUNT 20 CONSTANT C/D 
21 CONSTANT START 27 CONSTANT FINISH 33 CONSTANT STEF 
39 CONSTANT NEXT 45 CONSTANT SPARE 64 CONSTANT R—-LEN 
E/BUF R-LEN / CONSTANT REC/BLE 8 CONSTANT FILES © VARIABLE &REC 
) 32 CONSTANT MBLE : TOP © £REC ! ; : DOWN i £REC +! H 
MBLE FILES - REC/BLE * CONSTANT MAXRECS 
O VARIABLE LOADED © VARIABLE £N 0 VARIABLE EREC 
D@ DUF @ SWAF 2+ @ 3 : .STERL DABS 100 M/ 4 VR." 
Dx DUF ROT UxX DROP ROT ROT UX ROT © SWAP D+ ;: 
GET TIB @ OVER BLANKS QUERY TIE @ ROT ROT CMOVE © TIE @ C! : 
WIFE MBLE FILES DO I BLOCK B/BUF BLANKS UFDATE LOOF ; 
UNIT EMF TY-BUFFERS CR 
-" PRESS N FOR NEW FILE,SFACE FOR EXISTING DATA" KEY 78 = 
IF WIFE ELSE CR ." LOAD DATA TAFE,ANY KEY TO CONTINUE" KEY 
S DROP 1 3 CLOAD ENDIF 1 LOADED ! ; -——» 


SCREENZ 
0 ( BUDGET DATABASE) 
1 : RECORD LOADED @ O= IF INIT ENDIF £REC @ REC/BLK /MOD 
TILES + BLOCK SWAF R-LEN x + ; 
: FREE 1 MAXRECS O DO I £REC ! RECORD C@ 32 = IF DROF o 
LEAVE ENDIF LOOP IF ." FILE FULL" ABORT ENDIF ; 
: DUMP ." SET DATA TAPE REC/PLAY AND PRESS ANY KEY " KEY 
DROP FLUSH 1 % CSAVE CR; 
: TITLE? TITLE + CLS CR ." TRANSACTION NAME?" 16 GET ; 
1 AMOUNT? AMOUNT + CR CR ." HOW MUCH(ZX.X) ?..£" QUERY © WORD 
9 HERE NUMBER DFPL @ 2 < IF 10 D&* ENDIF DPL @ 1 <= IF 10 Dk ENDIF 
10 ROT DUF ROT SWAF 2+ ! ! ( STORE IN AMT LO THEN HI) 
11 : C/D? C/D + CR CR ." CREDIT(C) OR DEBIT(D)?" 1 GET ; 
12: IND QUERY 3 0 DO 47 WORD HERE NUMBER DROF OVER |! 2+ LOOP ; 
13: START? CR CR ." START DATE(DD/MM/YY)? " START + IND DROP ; 
14 : FINISH? CR CR ." FINISH DATE(DD/MM/YY)? " FINISH + IND DROF ; 


15 eames 


SCREENZ 
( DATABASE AND LISTING COMMANDS) 
: STEF? CR CR ." TIME BETWEEN FAYMENTS" CR ." (DAYS/MONTHS/" 
." YEARS)" STEF + IND DROP ; 
: ENTER FREE RECORD DUF TITLE? DUF AMOUNT? DUF C/D? DUP START? 
DUP FINISH? STEP? UPDATE ; 
: HEADING CR ." START" 4 SFACES ." FINISH" % SFACES 
." PERIOD" CR ; 

-DATE 3 0 DO DUP @ 2 .R 2+ I 2 ¢ IF ." /" THEN LOOP DROP 
SPACE ; : 

«PERIOD STEF + DUP @ DUP IF . ." DAYS" ELSE DROP ENDIF 2+ DUP 
@ DUF IF . ." MONTHS” ELSE DROF ENDIF 2+ @ DUF IF . 

" YEARS" ELSE DROP ENDIF ; 
: .DATES DUF START + .DATE DUP FINISH + .DATE .PERIOD ; 

PRREC CR DUP 16 TYPE 27 EMIT DUF C/D + C@ 3 - EMIT 

-" _" DUP AMOUNT + D@ .STERL HEADING .DATES CR ; 


OONGCU Swe Oo 
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And Forthly .. . Listing 


SCREEN4 
Oo ( LIST REMOVE AMEND FACILITIES) 
1 o: FAGE? £N @ SWAF = IF © £N ! CR ." FRESS ANY FEY TO CONTINUE" 


KEY DROF GTC DROF CLINE 11 EMIT ENDIF 3; ' 
So: DISFLAY CLS TOF © £N |! MAXRECS © DO RECORD DUF (Cm 32 = O= IF 


4 PRREC 1 £N +! 6 PAGE? ELSE DROF THEN DOWN LOOF CR ." END LIST" 

S os NFIND © QUERY © WORD MAXRECS © DO I €REC ! HERE COUNT 

& RECORD EDITOR -TEXT FORTH DUF IF LEAVE ELSE DROF ENDIF 

7 LOOF IF ELSE 1 CR ." NOT IN FILE" ENDIF 5 

@ : GETREC CLS CR ." TRANSACTION TITLE?" NFIND IF © ELSE RECORD 

9 DUF FRREC CR ." IS THIS THE ONE YOU MEAN? (CY/ND" KEY 89 = IF 

19 1 ELSE DROF O CR ." STET" ENDIF ENDIF 3; ~ 

lio: REMOVE GETREC TF R-LEN BLANES UFDATE CR ." REMOVED" THEN 3; 

12 : CHANGE GETREC IF CR ." WHICH FIELD DO YOU WANT TO CHANGE?" CR 


! TYFE" CR." A¢TITLE)" CR ." 2(AMOUNT)" CR ." 2(C/D)" CR 
14 ." 4(START)" CR ." SCFINISH)" CR ." 6(PERIOD)" CR IN£ CASE 
15 1 OF TITLE? ENDOF 2 OF AMOUNT? ENDOF = OF (C/D? ENDOF ~~-> 


a 


SCREENS 
( BUDGET DBASE ANALYSIS) 

1 4 OF START? ENDOF S OF FINISH? ENDOF 6 OF STEF? ENDOF 
2 ENDCASE UFDATE CR ." CHANGE DONE" ENDIF ; 

Zo: VAR «BUILDS 2 * ALLOT DOES ; 2 VAR BAL 2 VAR NOW 

4 2 VAR FIN 3 VAR REF 

5 t 12CLIST <BUILDS 31 
Bg, ON ge ONL ag 1 ; 
F 
8 
9 


° 


Zi-, 26, St 5 20 » Bi 5 BO, Si » S1 


IST DAYSIN 


: SETNXT DUF START + SWAF NEXT + 6 CMQVE UFDATE 
UPDNXT DUF NEXT + SWAF STEF + OVER @ OVER @ + 3 PICK 2+ @ 


BEGIN OVER OVER DAYSIN &® WHILE DUF DAYSIN ROT SWAF ~ SWAF 1+ 


10 REPEAT SWAP 4 FICK !' ROT 2+ ROT 2+ ROT OVER 

141i +4 1 - 12 /MOD SWAP i+ 4 FICK ! ROT 2+ ROT 2+ ROT SWAF & 

12 + SWAF +! UFDATE 5 

12% : LATER OVER 4 + @ OVER 4 + @ — -DUF O= IF OVER 2+ @ OVER 2+ 
14 @ ~ -DUF O= IF OVER @ OVER @ - Of IF 1 ELSE © THEN ELSE 

15 O¢ IF 1 ELSE © THEN THEN ELSE ©O< IF 1 ELSE © THEN THEN ——> 


SCREENG . 
© ¢ CONTINUE BUDGET DATABASE ANALYSIS) ROT DROF SWAF DROF ; 

: EARLIEST 999 REF 4 + ! 

TOF BEGIN RECORD DUF C® 32 =» IF DUP NEXT + REF 

LATER IF £REC @ EREC ! DUF NEXT + REF & CMOVE ENDIF ENDIF DROF 

1 £REC +! £REC @ MAXRECS = UNTIL EREC @ REC ! RECORD x 

: SETIST MAXRECS © DO I £REC !' RECORD DUF C@ 32 > IF DUF 

SETNXT BEGIN DUF NEXT + NOW LATER WHILE DUF UPDNXT REPEAT 
ENDIF DROF LOOF ; 

: FROMTO? CR ." FROM WHAT DATE(DD/MM/YY)?" NOW IND DROF CR CR 

"TQ WHAT DATECDD/MM/YY) 2" FIN IND DROF CR CR ." WITH A" 

10 ." STARTING BALANCE OF..." BAL AMOUNT - AMOUNT? ; 

dio: .XSAC CR DUF NEXT + .DATE CR DUF 16 TYFE 27 EMIT DUP 

12 C/D + C@ = - EMIT ." _" DUP AMOUNT + De® OVER OVER .STERL 

12 ROT C/D + C@ 68 = IF DMINUS THEN BAL D@ D+ OVER OVER BAL 2+ ! 

14 BAL ' DUF 27 EMIT O< IF 65 EMIT DABS ELSE 64 EMIT THEN 

15 ." £" .STERL ; aes 


VON ASW Ne 


ORIC-1 FIG-FORTH 


SCREEN? 
Q ¢( TOF LEVEL FORECAST WORD) j 
: FORECAST CLS FROMTO? SET1ST © £N ! CLS BEGIN EARLIEST DUF 
NEXT + FIN LATER WHILE DUP DUF NEXT + SWAP FINISH + LATER IF 
DUF .xXSAC UFDNXT 1 £N +! 12 FAGE? ELSE UFDNXT THEN REFEAT DROF ; 
: FNAME HERE 14 BLANES © WORD HERE 1+ S162 12% CMOVE 3; 
PNAME MONEY MANAGER 
FORTH DEFINITIONS DECIMAL 
LATEST 12 +ORIGIN ! 
HERE 28 +ORIGIN ! 
HERE +ORIGIN ! 
10 HERE FENCE ! 
11." MONEY MANAGER LOADED" 


CON pAR 


1238S 
13 
14 
15 


ORIC-1 FIG-FORTH 


Oric Owner 


Software 


Rubik Cube 


By J. Airey 


This program for the 48K ORIC 
simulates a rubik cube and 
shows what can be achieved with 
serial attributes. It shows the 4 
sides around the side, the top 
side and the bottom side soaking 
through the cube. 


Type in the program but save it 
before you run it, twice to make 
sure. 


Run the program and you 
should see the instruction page, 
press the space bar and you will 
see the next page of instructions. 


Press any key and the cube will 
then be drawn in basic. To test 
the program when it’s drawn, 
press I and you should see the 
instructions again. If pressing I 
doesn’t work and the ORIC has 
crashed then you have mistyped 
a data line. 


Go through the instructions 
again and this time the cube will 
be drawn in machine code in 
about a half of a second. 


Now, a small explanation of the 
machine code. 


Locations #229 and #22A ad- 
dress of USER IRQ routine. 
Use these to point to your inter- 
rupt routine. End your routine 
with JMP #ECO3 or #EDO9. 


Locations #2F5 and #2F6, 
address of ! command. Saves 
having to use call whatever and 
makes it easier to relocate 
machine code. 


To convert program to 16K, 
remove the screen m.c. Data 
alter the checksum accordingly 
and_ substitute GOSUB2000 
with redrawing the screen in 
basic. Also take out all the !’s. 
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Rubik Cube Listing 


10 HIMEM# 7400 :DOKE#229, #ECO3 
2@ REM***INSTRUCTIONS*** 
30 TEXT: INK7: PAPER: POKE618,10:CLS 
49 GosuB9ea 
58 PLOT10,4,"By John Airey" a. 
60 PLOT3,6,"In this program you move the cube" 
70 PLOT1,7,"by using a PASE joystick or keys.” 
80 PLOT1,9,"There are 18 different ways to turn" 
99 PLOT1,10,"a cube i.e. 9 forward 9 backward" 
1@@ PLOT1,11,"so I divided it into nine different" 
11@ PLOT1,12,"rotations and 1 used a + or a - to 
120 PLOT1,13,"show which way you are turning the” 
130 PLOT1,14,"cube" 
148 PLOT1,16,"position arrow (*) under the number" 
150 PLOT1,17,"of the direction you require" 
160 AS="move arrow left":x=2 
17@ PLOT1,¥,"left arrow": PLOT1,20,"joystick left" 
189 GOSUB970 
190 AS="move arrow right":y=21 
200 PLOT1,Y,"right arrow":PLOT1,22,"joystick right" 
216 GosuB970 
220 AS="execute move":y=23 
230 PLOT1,Y,"space bar":PLOT1,24,"fire button" 
248 GOsuB970 
250 AS="PRESS SPACE BAR TO CONTINUE": ¥=25:X=5 
268 GosuB976 
270 GETAS:IPA$<>" “THEN27QELSECLS 
28@ GOSUB90@:A$="change to plus =5:X=20 
29@ PLOT1,Y,"+ key":PLOT1,6,"joystick forward" 
300 GosuB970 
316 AS="change to minus":y=9 
320 PLOT1,Y,"- key":PLOT1,10,"joystick back” 
330 GosuB970 
340 AS="scramble cube":y¥=13 
358 GOSUB970 
360 AS="S key":X=1 
378 GosuB976 
380 AS="I key": ¥=17 
390 GosuB970 
490 AS="return to menu":X=26 
416 GosuB970 
420 AS="PRESS ANY KEY TO START CUBING":¥=25:X=4 
430 GosuB970 
440 GETAS:HIRES 
445 REM***IF SECOND PASS THEN*** 
446 REM***GOTO MAIN LOOP*** * 
450 IFDEEK (#229) =#403THENGOSUS2096:GOTO1620 
455 REM***ELSE RESET CUBE** 
460 GoTolgsa 
990 AS*"RUBIK CUBE" 
910 PLOT1@,1,A$:PLOT1@,2,AS 
920 PLOT8,1,4:PLOTS,2,4 
938 PLOT9,1,10:PLOT9,2,16 
946 FORA=07026 
950 ‘B=RND.(1) *6+1: PLOTS,A,B 
966 NEXT:RETURN 
970 PLOTX,Y,A$:PLOTX,¥+1,AS 
980 PLOTX~1,¥,10:PLOTX-1,¥+1,10 
990 RETURN 
995 REM***MAKE SPACE FOR VARIABLES*** 
1000 DIMX (54) ,¥(54) ,CO(54) 
1@16 GOSUB3000:GOsUB2000 
1020 AS=KEYS$: IFAS=""ANDDEEK (#400) =@THEN1G20 
1025 REM***CHANGE TO PLUS*** 
1030 IFAS="+"ORPEEK (#400) =8THENZ6=1:GOTO2049 
1035 REM***MOVE ARROW LEFT*** 
1040 IFAS*CHRS (8) ANDA>1 THENGOSUB 2620 : A=A-1:GOSUB2020 
1056 IPPEEK (#400) =1ANDA>1THENGOSUB2@20:A=A~1:GOSUB2020 
1055 REM***MOVE ARROW RIGHT*** 
1060 IFAS=CHRS (9) ANDA<9THENGOSUB2620: A=A+1:GOSUB2020 
1070 IFPEEK (#400) =2ANDA<9THENGOSUB 2020: A=A+1:GOSUB2020 
1075 REM***MOVE CUBE*** 
1080 IFAS=" “ORPEEK (#400) =16THEN1110 
REM***SCRAMBLE CUBE***: 
IPA$="S" THENGOSUB 400 
REM***BACK TO INSTRUCTIONS*** 
IFA$<> "1" THEN1@2@ELSE30 
ONAGOSUB5000 , 5180 ,5200,5390,5408,5500,5600,5700,5808 
GOSUB2090 :GOSUB2160:G0T01028 
AS@KEYS: IPAS=""ANDDEEK (#400) =OTHENI130 
REM***CHANGE TO MINUS*** 
IFAS="~"ORPEEK (#408) =4 THENZ6=0 :GOTO2040 
REM***MOVE ARROW LEFT*** 
IFA$*=CHRS (8) ANDA> 1 THENGOSUB2020 : A 
IF PEEK (#400) = LANDA>1 THENGOSUB 2020 : A=A~1:GOSUB2620 
REM***MOVE ARROW RIGHT* 
IPA$*CHRS (9) ANDA<9 THENGOSUB 2020 :A=A+1:GOSUB2020 
IFPEEK (#400) =2ANDA<9THENGOSUB2@26: A=A+1 : GOSUB2020 
REM***MOVE CUBE*** 
IFAS=" "ORPEEK (#40) =16THEN1220 
REM***SCRAMBLE CUBE*** 
IPAS="S"THENGOSUB4 G00 
REM***BACK TO INSTRUCTIONS*** 
IFAS<>"I"THEN113GELSE39 
FORC#11703 
ONAGOSUBS0G0,5140,5200,5300,5400,5500,5608,5700,5800 
NEXT: GOSUB 2090 :GOSUB2168:GOTO1130 
1:G0suB2090 
A=5:24=67:25=16: RETURN 
REM***DRAW ARROW (~) *** 
CURSETS5+(A*12) ,8,3 
CHAR94,0,2:RETURN 
REM***DRAW -+ SIGNS*** 
CURSETO,0,3 
CHAR43,0,2 
CURMOVG , 8, 3 
CHARAS 9,2 
IFZ6=@THEN1020ELSE1130 
REM***COLOUR IN ATTRIBUTES*** 
FORB=1T036 
CURSFTX(B) ,¥(B) ,3 
FILL36,1,CO(R) 
NEXT: FORB=37T054 
CURSETX(B) ,¥(B) -3 
FILL12,1,C0(B) 
NEXT: RETURN 
REM***PRINT OUT MOVE*** 
CURSET24,25,3:1F2Z6=1 THENCHAR43,@,2:GOTO2186 
CHAR45 0,2 
CURMOV6 ,G,3:CHARA+48 ,0,2:24=Z4+12 
IFZ4> L5STHENZ4=67:Z5*25+8 
IFZ5<48THENRETURN 
GOSUB2908:GOSUB2090 
1F26=1 THENGOSUB2040 
RETURN 
REM***DRAW SCREEN VIA M.C.*** 
DEFENX (X) #X- PEEK (537) 
DEFFNY (Y) #¥-PEEK (538) 
FORA=127048STEP18 
FORB=ATOA+11 
.C#B+116:0=125-B 
E=B+108:F=233-B 
FORG=@TO2 
H=G*18 
CURSETB,C,3 
DRAWFNX (B) ,FNY (C+24) ,2 
CURSETD,C,3 
DRAWENX (D) ,FNY (C+24) ,2 
CURSETE,C,3 
DRAWENX (E) ,FNY (C#24) ,2 
CURSETF,C,3 
DRAWENX (F) ,ENY (C#24) ,2 
CURSETB,H,3 
DRAWENX (B) ,FNY (H+12) ,2 
CURSETF,H,3 
DRAWENX (F) ,PNY (H+12) ,2 
C=C-36:NEXTG,B,A 
CURSET61,0,3:FILLS4,1,7:CURMOV6,@,3 


FORA=497057:CHARA,@,2 
CURMOV12,0,3:NEXT 

CURSET12,191,3 
FORA=49T054:CHARA,@,2 

CURMOV18 0,3: IFA=51 THENCURMOVE ,0,3 
NEXT:CURMOV-6,@,3:FORA=51TO49STEP-1 
CHARA, @,2:CURMOV18,0,3:NEXT 


*CURMOV6 ,@,3:FORA=54TOS2STEP-1 


CHARA, @,2:CURMOV18,0,3:NEXT 
CURSETG , 60,3: FORA=55T057 
CHARA, 0,2:CURMOV@, 36,3 
NEXT:CURSET232, 60,3: FORA=55T057 
CHARA, ,2:CURMOVG, 36,3 
NEXT:CURSET@,8,3:CHAR45,@,2 
CURSET115,8,3:CHAR94,0,2 
FORA=#403T0#485:READB: POKEA,B 
CS=CS+BzNEXTA: IFCS<>10680THENSTOP 
DOKE#229, #463: DOKE#2F5, #458 
1: POKE#4 78,129: POKE#47A, 131 
FORX=2@5TO7STLP~18: FORB=1T03 
2=Z+1: READY ,C:X(Z)=X:¥(Z)=¥:CO(Z)=C 
NEXTB,X 
FORX=43T07STEP-18:FORB=0T02 
Z=Z+1:Y=(B"18) +1 

X (2) =X+1642¥ (2) =¥:CO(Z) =6 
X(Z#9) =X2¥(Z+9) #¥:CO(249) =4 
NEXTB,X 

RETURN 

REM***JOYSTICK DATA*#* 
DATA72,173,15,3,72,173,3,3 
DATA72,169,192,141,3,3 
DATA169,128,141,15,3,32,51,4 
DATA141,1,4,169,64,141,15,3 
DATA32,51,4,141,0,4,104 
DATA141,3,3,104,141,15,3 
DATA1@4,76,3,236,169,0 
DATA141,2,4,173,15,3 
DATA73,59,10,10,10,46 
DATA2,4,10,46,2,4,10,46 
DATA2,4,10,10,46,2,4,10 
DATA46,2,4,173,2,4,96 
REM***SCREEN DATA*** 
DATAL73,111,2,201,27,208,1 
DATA96, 169,10,141,106,2,169,0 
DATA133,129,133,131,169,152 
DATA133,130,169,192,133,132 
DATA162,33,160,0,177,131 
DATA145,129,136, 208,249,198 
DATA136,198,132,202,208,240 
DATA96 

REM***DATA FOR CUBE*** 
DATAS7,2,93,2,128,2 
DATA7S,2,111,2,147,2 
DATA93,2,128,2,164,2 
DATA93,1,128,1,164,1 
DATA7S,1,111,1,147,1 
DATAS7,1,93,1,128,1 
DATA57,5,93,5,128,5 
DATA7S,5,111,5,147,5 
DATA93,5,128,5,164,5 
DATA93,3,128,3,164,3 
DATA75,3,111,3,147,3 
DATA57,3,93,3,128,3 
REM***SCRAMBLE CUBE*** 
FORI=1TO10:CURSETO, 16 ,3:CHAR83,0,2 
B=RND (1) *8+1 


ONBGOSUB59G0,5100,5200,5360,5400,5500,5600,5700,5800 


NEXT:GOSUB2098 

RETURN 

REM***ROUTINES FOR TURNING CUBE*** 
FORB=1703:2(B) =CO(33+B) 

CO (33+B) =CO(51+B) 

CO (51+B) =CO(13-B) 

CO(13-B) =CO(36+B*3) 

CO (36+B*3)=Z(B) :NEXT 
2(1)=CO (1) :Z(2) *CO (2) 

CO (1) =CO(7) :CO(2) =CO(4) 
CO(7)=CO(9) :CO(4) =CO(8) 

CO (9) *CO (3) :CO(B) =CO(6) 
CO(3)=Z(1):C0(6)=Z(2) : RETURN 
FORB=1103:2(B) =CO(30+8) 

CO (30+B 0 (48+B) 

CO (48+B) =CO(16-B) 

CO (16-B) =CO (35+B*3) 

CO (35+B*3)=Z(B) :NEXT 
RETURN 

FORB=1T03:2(B) =CO(27+B) 

CO (27+B) =CO(45+B) 

CO (45+B) =CO(19~-B) 

CO (19-B) =CO(34+B*3) 

CO (34+B*3) =Z(B) :NEXT 
2(1)*CO(19) :2(2) =CO (20) 

€0 (19) =CO (21) :CO(28) =CO(24) 
CO (21) =CO (27) :CO (24) =CO(26) 
CO (27) =CO (25) :CO(26) =CO(22) 
0 (25) =Z(1) :CO(22)=2 (2) :RETURN 
FORB=1T03:Z(B) =CO(24+B) 

CO (24+B) =CO(57-B*3) 

CO(57-B*3) =CO(4-B) 

CO (4-B) =CO (36+B) 

CO (36+B) =Z(B) :NEXT 

Z(1)=CO (28) :2(2) =CO(29) 

CO (28)=CO (34) :CO(29)=CO(31) 
CO (34) =CO (36) :CO(31) =CO(35) 
CO (36) =CO (3) :CO(35)=CO (33) 
CO (38)=2(1 0 (33) =Z(2) : RETURN 
FORB=1T03:2Z(B) =CO(21+B) 
CO(21+B) =CO (56-B*3) 

CO (S6-B*3) =CO(7-B) 

CO (7~B) =CO(39+B) 

CO (39+B) =2(B) :NEXT 

RETURN 

FORB=1T03:Z(B) =CO(18+B) 

CO (18+B) =CO (55-B*3) 

CO (55-B*3) =CO(10-B) 

CO (18-8) =CO(42+B) 

CO (42+B) =2(B) :NEXT 

Z(1)=CO (15) 22(2) =CO(12) 

0 (15) =CO(17) :CO(12) =CO(18) 
CO (17) =CO (13) :CO(18) =CO(16) 
CO (13) =CO(11) :CO(16)=CO (18) 
CO(11L)=Z(1) :CO(10) =Z(2) : RETURN 
FORB=3 TOOSTEP3:Z(B) =CO(B-2) 
CO(B-2) =CO(7+B) 

CO (7+B) =CO (16+B) 

CO (16+#B) =CO(25+B) 

CO (25+B) =Z(B) :NEXT 

2 (1) =CO (48) :2(2) =CO(51) 

0 (48) =CO (54) :CO(51) =CO(53) 
€O (54) =CO (52) :CO(53) =CO(49) 
CO (52) =CO (46) :CO(49)=CO (47) 
CO (46) =Z (1) :CO(47)=2(2) :RETURN 
FORB=3TOSSTEP3:Z(B) =CO(R-1) 
CO(B-1)=CO(8+B) 

CO (8+B) =CO(17+B) 

CO (17+B) =CO(26+8) 

CO(26+B) =2(B) :NEXT 

RETURN 
FORB=3TO9STEP3:Z (1) =CO(B) 
€O(B) =CO(9+8) 

CO (9+B) =CO(18+B) \ 

CO (18+B) =CO(27+n) 

CO(27+B) =%(R) NEXT 

2 (1) #CO (37) 22 (2) =CO (36) 

CO (37) =C0 (39) 200 (38)=CO (42) 
CO (39) #CO (45) :CO (42) =C0 (44) 
CO (45) =CO (43) :CO (44) =CO(44) 
CO (43) =Z (1) 200 (40) =2Z(2) RET 
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Oric Quickies 


Bar graph drawing program 


By K. Golding 


RUN’S in under a kilobyte 


On running you enter how many items you have (1-7) and then the 
amount (up to 25) and the item name, then it draws the graphs. 


3 POKE #26A,35 
5 TEXT: PAPER 0:INK 7 
10 FOR T=0 TO7 
20 B$(T)=CHR$(T+144): F$(T)=CHR$(T+128) 
40 NEXT 
100 CLS: PRINT 
‘110 PRINT SPC(15)B$(7)SPC(12)B$(0) 
120 PRINT SPC(5) B$(7) F$(0) “BAR CHARTS” B$(0) 
130 PRINT SPC(15) B$(7) SPC(12) B$(0) 
131 PRINT:PRINT “HOW MANY ITEMS”;;INPUT U: IF U>7 
OR U<@ THEN POKE #268,5:GOTO 131 
132 POKE#268,5 
140 PRINT:PRINT “ENTER THE DATA:” 
145 PRINT SPC(17)*: (1 TO 25), ITEM” 
150 FOR M=0 TO U-1 
155 IF PEEK(#268)>25 THEN POKE #268,18 
160 INPUT “.......... ceeeeset”’s A(M), A$(M) 
170 IF A(M)>25 THEN EXPLODE: GOTO 1600 
172 IF A(M)<0 THEN EXPLODE: GOTO 160 
175 IF LEN(A$(M))>9 THEN SHOOT: GOTO 160 
180 NEXT 
190 POKE #268,4: FOR Q=1 TO 22: PRINT SPC(46): NEXT 
200 FOR T= @ TO U-1 
210 FOR E=27 TO 28—A(T) STEP-1 
220 PLOT E, (T+1)*3+3, B$(1)+B$(0) 
230 NEXT 
240 PLOT 30, (T+1)*3+3, A$(T) 
250 NEXT : 
260 POKE #268,26:PRINT “AGAIN (Y/N)?” 
270 GET A$: IF A$=“Y” THEN RUN 
280 IF A$=“N” THEN END ELSE 270 
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WMiissionaries 
and Cannibals 


This program contains instruc- 
tions but basically the idea is to 
get 3 missionaries and 3 canni- 
bals from one side of the river to 
‘the other. However only two 
people are allowed in the boat a 
any time and if the missionarig 

are outnumbered by the cangi- 
they will be eaten! The 
» will also demonstfate 
ion if required. 
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By S. W. Lucas 


ORIC-MON 

Includes mnemonic 
assembler/disassembler, 
block move and verify, 
data and text entry and 
cassette and printer 
handling. Includes 
manual. £15.0 inc. VAT — 
16K or 48K 


House 
of Death 


An impressive follow-up to 
Zodiac, discover the secrets 
of the haunted house, avoid 
the witch and the axe 
murderer and come away - 
with incredible treasures. 
£9.99 inc. VAT — 48K. 


ZODIAC 

One of our most successful 
games. Discover the twelve 
cunningly disguised signs of 
the zodiac which will lead 
you to six treasures. Full of 
puzzles, puns and misleading 
clues. £9.99 inc. VAT — 48K. 


ORICMUNCH 
Munch the 
Bugmonsters and 
eat the power pills, 
clear the maze to 
reach the high 
score. £7.95 inc. 


VAT — 16K or 48K. 


TANSOFT LANGUAGE 
MASTERCLASS 

If you are going abroad for 
pleasure or business these 
courses will give you a basic 
understanding of the 
language. Based on the new 
Gruneberg Link-Word 
method. 


Spanish 


Italian 
German 
French 


supplied with program 
cassette and spoken - 
vocabulary pronunciation 
cassette. £12.95 each inc. 
VAT — 48K. 


You received your first issue of Oric Owner free with your 
machine. Why not subscribe now and keep in touch with all 
the latest developments in the Oric range. 


ORICBASE 

A complete 
database system. 
A sophisticated 
query language 
allows you to 
search and sort 
your data, keep 
running totals and 
print reports. Full 
manual. £14.50 
inc. VAT — 48K. 


FORTH 


A full implementation of 
this exciting new computer 
language. Includes editor 
and assembler plus 
language extensions. 
£15.00 inc. VAT — 48K. 
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COPYRIGHT ORIC PRODUCTS INTERNATIONAL Le 


Our software is available from all Oric dealers and 
most good software suppliers. In case of difficulty 
please contact us on Teversham (02205) 2261 or write to us at: 


TS, EEE 
ramcsor it 
Unit 1 & 2, Techno Park, Newmarket Road, Cambridge 


*) 
4 Pas 


You control a car and must 
dodge the other cars coming 
--geross the screen, you can get 
“killed as often as.you like but 
“you lose ten miles each time you 


do get killed. Although this 
sounds easy you ofly shave a’ 
limited time of fuel to reach the | 
highest mileage. After 400 miles 
it goes onto the next level. 


a 


By M. Caldwell 


BY. 
‘ENTERTAINER’ RAG 


This program makes full use of 
the Oric-1’s excellent musical 
‘capabilities, by playing this 
world-famous Ragtime Two- 
step. The program is written so 
that typing is kept to a bare 
minimum, by re-using routines 
when required rather than typ- 
ing them all out all over again. 
The overall effect is helped by 
using the lower end of the Oric’s 
sound spectrum, which means 
that the harmonics are some- 
what more prominent than — 
higher up, thus creating the 
impression that there are more 
than just three voices playing 7 
(the original needs 7 voices!). 
Some may question the use of 
the MUSIC command through- 
out rather than DATA. The 
explanation is quite simple: 
whilst DATA is _ perfectly 
acceptable for one voice only, 
when three voices are used, the 
DATA system produces 
synchronisation troubles, and 
experience has shown that using 
the MUSIC statement through- 
out, although considerably more 
tedious to type in, should pro- 
duce by far the best results in the 


GY end. Happy typing and listening! 
ZB See pages 56, 57 for listing 
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By J. P. Hibbins 
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20 


RE OOOO OOOO III IO IO 


REM * 
REM& MISSIONARIES & CANNIBALS x 
REM x 
REMk BY C.R. BURNHAM SEFT ‘83 * 
REM x 
REGO OOOO IOK 


DATAZSS 1271635311577» 3e1’LEFT SIDE OF BOAT ‘x* 
DATA2SS + 255% 2555 255725522557255/255 MIDDLE OF BOAT "we" 
DATA255 925452527 2485240»22491929128’RIGHT SIRE OF ROAT ‘=" 
DATA141149493194914910727’MISSIONARY "i" 
DATA46146936163736946710727’CANNIBAL ‘1* 
DATAL+ 719747461635: 46’°FISH *}" 
DATAS2 215052179172) 248925 20014091057 2916575121649 3291551 B pL S219 L692 
DATAS212191207%761977203/255’FRINT AT CMI M/C CODE 
FORA=47040T047087iREADBiPOKEA»BiNEXT:REM DEFINE CHARS 
A=O};REFEATSREADBRSFOKELO2Z4+Ax Bi A=AtLSUNTILB=25S5$D0KE757+1024:REM |! CMD 
RE OOOO OOOO IO IOK 
HIRES: TEXT!FAPERSSINKOSA=FRE(*") S$ FOKES618710 
'B8,105°DO YOU WANT A STATEMENT'?!8,123"OF THE FROBLEM ?°33GETAL 
IFA£="N*THEN230ELSEIFA£="Y* THENGOSUB2000:GOT0230 
ZAPI!8,18¢ "MUST BE ‘Y’ OR ‘N’*3WAIT100:GOT0190 
CLS$!1,20;CHRE(135) "{C€" 
'Sy2O*CHRE(128) "111" 
FORA=21T025¢!0,ASCHRE(146)"10 SFACES*CHRE£(150)NEXTi!1/235 "LEFT BANK" 
FORA=22TO253!11,AsCHRE(148) "14 SPACES *CHRE(150) }NEXT 
$!13,23CHRE(131)"F + > * F*CHRE(128)3!14,245CHRE(131)"? + > 3° 
FORA=21T025!!26,AsCHRE(146) SNEXT3 127,233 "*RIIGHT BANK'S 
{129213 *xyyuye" 
CL=3iML=3iCR=O;MR=O;B£="L*’ SET ALL TO LEFT ! 
!1074s"HOW MANY CROSS ?°5 
IFC£="¥"THENS230 F 
MB=O3!1,/85"°20 SPACES"§$!1105"20 SPACES"; 
CANNIBALS ? “SiGETCRESPRINTCB£:CB=VAL (CBE) 
HR£( 48) ORCBE>CHRE(S7) ORCB<OORCB> 3THENGOSUB1900:GOTO320 
L*ANDCB>CLTHENGOSUB1950:GOTO320 
“ANDCB>CRTHENGOSUB1950:GOTO320 
$17103"°20 SPACES*S 
'd,1Os "MISSIONARIES ? "+ iGETMBE£LSPRINTMBE£S {MB=VAL (MEE) 
<CHRE (48) ORMBE>CHRE (57) ORMB<OORMB> 3THENGOSUB1900!G0T0370 
“ANDIMB>MLTHENGOSUB19303G0T0370 
LTHENGOSUB1930:3G0T0370 
IFCE+ME<3THEN470 
ZAPIPLOT1+1,/"*BURK ! YOU’VE SUNK THE BOAT NOW * 
*THENFLOTI3:212°6 SPACES" !$127255 "xyysuz"tPLOT12,18,"HELF ! 
R"THENFLOT212219°6 SPACES"? !209253 *xyyyyz"tPLOT21*18»"HELP !* 
WAIT4003GOT03100’ ANQTHER GAME ? 
IFCR+MB=OTHENZAPSPLOT1,»1,/"IDIOT ! NOW YOU’VE LOST THE BOAT" 
IFCB+ME=OTHENWAIT400:GOTO3100’ ANOTHER GAME 7? 
IFBE="R*THENS60’ VALID MOVE FROM RIGHT 
REM **kek VALID MOVE FROM LEFT xxxxk 
CL=CL-CBICR=CR+tCBiML=ML-MBIMR=MRtMBIBE="R"tPLOT2,207°S SPACES* 
IFML*>OTHEN!17205CHRE(135)5 $FORRA=1TOML$ !At1,205 "4°53 3NEXT 
THEN!S, 20; CHRE(128 FORA=1TOCL!!AtS,205°1 NEXT 
THEN! 279205 CHRE(135) 5 SFORA=1TOMR: !A4279205 "(°3 }NEXT 


O IFCRSOTHEN! 315 20¢CHR£(128)5 3FORA=1TOCR? 'At31+205 "1S SNEXT 
2 IFCE="Y"*THENWAIT7S*READMBE+CRIGOTO5S60 

55 PLOTI3:215°6 SFACES*{FLOT21, 2149 *xyeyyz'iGOTO620 

O REM **** VALID MOVE FROM RIGHT *Xxx 

570 CL=CL+CR}ML=ML+MBi CR=CR-CH3 MR=MR-MBIR£="L*3FPLOT28»207"8 SPACES" 
S80 IFML>OTHEN! 1» 205CHRE(135) + $FORRA=1TOML: !A4+11203 °€°$ $NEXT 
990 IFCL>OTHEN!S»20sCHRE(128) 5 $FORA=1TOCL? !A+5» 2051" SNEXT 
600 IFMR=OTHEN! 27+ 20¢CHRE(135) 5 3FORA=1TOMR! !At277 205 "°F SNEXT 
610 IFCR>OTHEN! 31+205CHRE(128) 5 SFORA=1TOCR! !A4315205"1 "5 SNEXT 
615 PLOT215215"& SPACES*SPLOT13,215 *xyyyyz" 

617 IFC£="Y"THEN3S240 

620 REM **kx MAKE SURE THEY’RE NOT QUTNUMBERED kx 

630 IFML>OANDCL>MLTHENZAFIPLOT1+1/*YOU FOOL»YOU’VE FED THE CANNIBALS" 
640 IFMR=OANDICLSMRTHENZAPTFLOTI»1+*YOU FOOL,» YOU’VE FED THE CANNIBALS" 
650 IF (ML>OANDCL>ML)OR(MR>OANDCR>MR) THENWAIT400!G60T03100 

660 REM ¥*RK GAME OVER YET 7 Xxx 

670 IFCR+MR<STHENS20° NOT YET ! 

680 FING?FLOT3,;1+*WOW !' SO WHO CARES IF YOU In GET* 

$90 FPLOT3r3+"THEM ACROSS ANYWAY 7???" {WAIT400:GOTO3100 

1900 REM *xkkk INVALID REPLIES kkxx 

1910 ZAP3FLOT1i»1»+*HOW AM I SUPPOSED TO LO THAT ?7*:WAIT150 
1920 ZAPIPLOT1:1»"°30 SPACES*{ RETURN 

1730 ZAFiPLOT1+1»"LOOK AT THE MISSIONARIES AGAIN*:WAIT150 
1940 ZAPIPLOTisi+"30 SPACES"! RETURN 

1950 ZAPiPLOTisis*LOOK AT THE CANNIBALS AGAIN !?*?WAIT1SO 
1960 ZAPIPLOTisi»°30 SPACES*! RETURN 

2000 REM *kek INSTRUCTIONS *Xxx 

2010 CLStFPRINTiPRINTSFERINT 

2020 FRINT"3 MISSIONARIES (*CHRE(135) *{{{*CHRE(128)3 

2030 FRINT*) & 3 CANNIBALS (111) 3 

2040 FRINT" ARE ON THE LEFT BANK'S 

2050 PRINT"OF A RIVERTHAT IS TO DANGEROUS TO SWIM."$ 

2060 PRINT"ALL 6 WISH TO CROSS OVER TO THE RIGHT BANK,* 
2070 FRINT*TO TO SO THEY HAVE A SMALL BOAT"? 

2080 FRINT* WHICH WILL CARRY 2 PEOPLE AT A TIME." 

2090 FRINT'TO ENSURE THAT THEY WILL NOT ‘$3 

3000 FRINT"BE EATEN'S 

3005 PRINT "THEY MUST NEVER BE OUTNUMBERED, * 

3010 PRINTS FRINTSFRINT 

3020 PRINTCHR£(135) HOW CAN ALL 6 CROSS SAFELY*!WAIT2000 
3030 FRINT?PRINT?FRINT'DO YOU WANT TO CHEAT AND SEE THE" 

3040 PRINT"SOLUTION ?*3GETA£SIFAL="Y"*THENCE£="Y" $GOSUR3200 
3050 RETURN 

3100 REM ¥X¥K ANOTHER GAME 7 ¥xkx 

3110 CLS$FLOT10,10,/"GAME OVER ~ [DO you" 

3i20 FLOT10+12»"*WANT ANOTHER ONE ?*3GETAE£ 

3130 IFA£="Y* THENRUN230ELSECLSiPRINTCHRE (6) CHRE(17) {NEW 

3200 REM *kKx DEMO GF SOLUTION ! *eKK 

3210 C£="Y"iGOTO230 

3230 MB=0:CR=2:GOTOS5S00 

32406 WAIT7S:READMB+CB: IFMB+CB> OTHENGOTOSOOELSERETURN 

3250 DATArtss2rete2rrlole2rrelev2xxlye2e49%’SECRET DATA ! 
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Software 


In this adventure, you must take 
on the roll of Cinderella. The 
game loosely follows the plot of 
the fairy tale and like all adven- 
ture games part of the fun in 
playing is to discover the solu- 
tion for yourselves. I would sug- 
gest that you do NOT read the 
hints for solution of the game 
UNLESS you are completely 
stuck. 


The game starts with you (Cin- 
derella) in the kitchen near to 
the fireplace. In a few hours 
time, there is to be a Ball in the 
Royal Palace to which every- 
body except you has been 
invited. Since your mother died 
a few years ago, you have lived 
in a large house a few miles from 
the Royal Palace with your 
elderly father and two UGLY 
sisters. The Ball is to be held to 
celebrate the 21st birthday of 
Prince Charming and you would 
dearly love to go to the ball to 
meet the prince. 


To solve the game completely, 
you must try to get the prince to 
marry you and the final moves of 
the game will involve you in 
getting married to the prince. 
BEWARE, if you lose the 
game, he will marry one of your 
UGLY sisters! 


You must give the computer 
instructions as to what you 
would like to do in the form of 
one or two words such as GET 
CINDERS, EMPTY DUSTBIN 
etc. 


Cinderella 


There are 72 locations to visit in 
this game. 


WORDS 
UNDERSTOOD 


GO, N,S,E,W, UP, DOWN, 
IN, OUT, EMPTY, DRINK, 
EAT, LOOK, SCORE, RUB, 
DRINK, HELP, RUN, SAY, 
SPEAK, WEAR, TRY ON, 
PRAY, CRY, ASK, READ, 
PHONE, BUY, INVENTORY, 
ROW, SAIL, PUSH, WASH 
She SWEEP FLOOR, 
DANCE, RIDE, WAIT, 
JUMP, DIVE, GET, TAKE, 
GRAB, DROP, LEAVE, PUT, 
OPEN, UNLOCK, KISS, 
GIVE, EXAMINE, SEARCH, 
KILL, SHOOT, ATTACK, 
DESTROY, SWIM 


GENERAL 
RULES 


1. In each location HELP will 
often give you a hint. 

2. Whenever you are sad and 
CRY then your fairy godmother 
will be thinking about you and 
will often appear to give you 
assistance. (PRAYING is 


another way of calling for your 
fairy godmother). 


HINTS 


Read these only if you are really 
stuck for what to do!!! 


1. You must first find the pump- 
kin, six mice, two lizards and 
one rat and take these to the 
back yard.—try CRY at the 
beginning. 

2. The pumpkin is in the vege- 
table plot but you will need the 
spade to dig it up! This is to be 
found inside the garden shed. 

3. The lizards are to be found 
inside the cucumber frame. 
Type HELP when you are near 
to the cucumber frame. 

4. The mice are in the mouse 
trap in the secret room off the 
oak panelled library. Type 
HELP in the library. 

5. The rat is in the trap in the 
cellar. 

6. If your ugly sisters demand 
that you do something, IT is 
important that you do as they 
ask. 

7. Do’ not swear at the com- 
puter! 

8. When you have taken these 
items to the back yard, call for 
your fairy godmother TWICE!! 
9. She will tell you to get some 
shoes to wear. 

10. When you have found these 
(do not get them before she has 
told you to do so!), call for your 
fairy godmother again! 
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the 


Your fairy godmother 


ding dress, you must prepare for 
the wedding by WEARing the 


dress. 
19. Once you have reached the 


church, go in and you should 
then be able to marry your 


should then appear and wave 
prince. 


18. When you have got the wed- 
her wand. 


cucumber frame! 


Software 


turn to rags if you hang around yourself to death with 


so RUN for your life. 
or your sister will hit you and 


15. If the prince’s servants come 
along asking ‘to whom the slip- 
per belongs’ why not try it on! 
16. ONLY when the fairy god- 
mother tells you to do so should 
you will lose the game. 

17. You will also lose if you cut 


Cinderella Listing 


DANCE with him (or you could you get the WEDDING DRESS 


11. If you are stuck inside a 
even KISS him!) 


glass coach or on horseback just 


WAIT around awhile! 
go to the ball and find the 


prince. 
13. When you find the prince 


14. If it is close to midnight, 


12. When you get to the palace 
BEWARE!! Your clothes will 
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570 IFC4=*GUT*O2Z8="80 OUT? THENGE 


580 IFCS="1"ORZ$="GG IN" THENGOSUB1 100 


590 IFC$="PUS* THENGDSUB2420 
500 IFES="WAS" eine 
510 IFC$="DAN" THENEOSUB25 

82 
530 TEC$="WAT" THENGOSUBZSS¢ 
54 TFCS="JUM"ORCS= "DIV" THE 


:G0SUB2446 


IFCS="RID"ORZ$="60 red ORZ$="G0 COACH" THENFRINT 


650 IFC$="GET"GRCS="TAK"ORCS="t SRA*THENK=1: 6OSU5:310 
640 TFC$="DRO°ORCS="LEA"GRCS$="PUT* THENGOSUB! S80 


342 IFC$="SWE" THENGOSUB2240 


690 [FCS="QPE"THENPRINTCHRS (129) "I'm afraid 


ENT KeL 

690 TFCS="UNL"THENGCSUB L796 

700 TFC$="KTS" THENK= 1: GOSUBLE20 
FiO TFD$="GIV" THENK=1: GOSUBL850 


ter 
ict 


720 IFC$="EXA°THENPRINT'I can’t see anything special" 


730 TRC$="SEA"THENGOSUB2220 


740 TFCS="KIL“ORCH="SHO"ORCH="HTTORCH="ATT "ORC Ea "DE 


1870 


‘not vet":k=1 


¥ 
His 


“THENK= 1: 


=} 
=] 


743 TFCS="EMP"THENPRINT"T don’t think that would do @uch goad":k=! 
750 IFC$="SWI"THENK=1: PRINT" iust give ae a Girectan ag l 


f I have to" 
Jo® [FRCPITHENPRINTCHRS (135); "I'm sorry | 
770 UNTILPL=7L:REM POSITION TO WIN 

780 GOTO856 
790 END 

800 FORH=1T072 


dan’ 


t underst 


PREADGS (H) :FORD=1 704: READSZUH,D) 2 NEXTD, 


Thy 


ll swig 


and that" 


an’t de that just ve 


BOSUB 


i 


810 FORH=17023:READGS (Hi ,BLiH, 1) :NEXT:FORH=1 7033: READNS (H) .NE(H) INE 


MT 

830 RETURN 

G40 REM ROTINE FOR WINNING! 
5G CLS 

940 FORY=1102 


870 PLOTI,X, 14sPLOT2, 4X, 2+): PLOT, ra Bit 


880 NEXT 


999 PLOTL, 10, 1:FLO72,10,"You have scived this adventur 


960 PLOTI, 15,3: 
905 PLOTI, £6, 32PL 16," ever after 
Rid FORM=17TG5:FORY=i70226 STEP 26 
929 SOUNDI,¥,0:PLA 


tog tail for a 


poor 


¢ defenc 


O72, 15, "0 marry me prince and live has 


ily “ 


1018 IFP2=287 werk loclimb the cellar stegs!":Pi=2i: 
102) PRINT*! can’t do t 

4022 

1030 REM ROUTINE 72 62 BON | 


) Ker 

TFPE=23THENPRIN 
& IFPL=21THENPR 
FRINT"Don‘t be 


i-REM ROUTINE 
‘ 1 


"SRETURN 
da": RETURN 
:RETURN 
0 DATAby a large Gak door. it is locked.,0,¢,2,4 : 
i DATAin a hallway. The staircase leadDEEK uo from here.,9,0,3 


1106 JEP1=S9THENP2=60ePRINT z 
a TFPA=O1THENPRINT It’s Lo 
9 PRINT"Don’t be DAFT!!! ":74F 


25 DATAin the hall,4,19,8,2,in 2 large oak panelled library.0,3,0 


DATAin a secret passage, §,4,4,0,i5 2 musty secret roon,0,0,0,5 
DATAat the western enc of the dining roc#.2,8,10,% 
i DATAin a large kitchen,7,18,9,3,by a large ald fashioned firep 


2 DATAO,17,0,8,6y the dining table.0,0,0,7 
DATAInride the garden shed. it is full cf ald plant pots’, 0.0, 


Sia enh 


114 DATAby a garden shed. The door is cp 
1142 DATHin a iarge orchard full of 
1156 DATAon a large well kept lawn.13,9,0,15,in 


5,9,0,0 
aaa Q 


; sisters sleep., 0,23,0,0 
in ay father’s bedroom,0, 0,23. 6 


bathrooa, 
teilet,25 
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es 


1193 DATAoutside ay garden gate,71.34,33,0 
1194 DATAoutside wy front door. It is open,0,9,1,32 


Ss Soni ee Angee 0,0 


{201 DATAat the 
1202 DATAoutside a iarce eon castie.d.0 
1210 DATAon the castle steps,.0,0,39, 36 
{211 DATAin a huge entrance hall full 
9,39,49,57 
{212 DAT4in a room full of cobwebs. 32,8,9,0 
1226 DATAin a long narrow North/South corridor.Paintings line the w 
alls 
DATA4S, 36,41,0,in a large banquet hall. ,44,0.0,40 
222 DATAin the palace kitchens,43,9,0,0 
— DATAin a narrow passage,0, 42,0, 
224 DATAin the banqueting hall. There is nobody here',48.41,4 
3 
230 DATAby a window looking out over the Lawns, 47,40,9,46 
Hl DATAon a vast lawn, 0,0,45,0 
1232 DATAat LEFT$he end of the passage. There is a door here but it 
is locked. 
1233 DATAG,45,0,0,in a small lounge, G,42,0,0 
{240 DATAat the entrance to the baliroom,0,0,96,38 
1241 DATAin the ballroom, It is very crowded, ,0,51,0,49 
1242 DATAin a crawd of ceople at one side of the bailrocs..i0.97 


1743 DATAon the floor of the dance. A young manasks me to dance,0,9 
4,0,51 
1244 DATAby a table,51,0,54, O,in a crowd. of people,52,55,9,55 
$250 DATAin the ballroom,c4,0,0,9 
= DATAin the village lea 
2 DATAin 2 narrow cobbled stree ,0,58,56 
!2é¢ DATSis ail courtyard, “0,58,0. T,outside a cate, 58,9,0,0 
mbt DaTAin ate,59.0,0 
2 EATABy the villace slacie: 
0 DATAat the South ena or th 
DATAsutside the village 
? DATAinsice the village shop,0.2, 
273 DATAriding inside a beautiful sions ‘tbat, 6,0,0,0 
1274 DATAin a stationary coach,$,0,0,0,riding on a harse,0,0,0,0 
1290 DATAouts de the village church, 49,0,0,0 
1281 DATAin the entrance to the village church, 70,66,0,4 
1292 DATAwalking down the aisle. The organ is playing the ttweddin 
g marchat 
1283 DATA71,49,0,0,at the altar.Prince charming is here.,9,70,9,0 
1284 DATAdancing with a handsome priace on a very crowded danbe ¢ 
loor. 
1285 DATAO,0,6,0 
1300 REM ROUTINE FOR GET 
1310 GOSUB i590 
1315 Kei 
1320 IFLY< >i THENRETURN 
1330 Ex=0 
1340 FORH=1T022 
1344 IFBZ{H,1)=P% ANDBL(NL(R) L)=P% THENEX=! 
1350 NEXT 
1360 IFEL=OTHENPRINTCHRS (129)"I can’t see it here! ":K={:RETURN 
1370 IFR=13THENSA=! 


1380 IFR=STHERX$(1)="1 GRAB HOLD OF THEM & BURN TO DEATH'":G0SUB189 
0 
1390 IFR=160RR=170RR=31ORR=32GRR=33 THENPRINTCHRE 135! "Don’t be STUP 
1D! *sRETURN 
1400 IFR=LGANDSB< >1THENPRINTCHRS{i29)"1 need a spade to dig that": 
RETURN 
1410 IFR=6THENSB=! 
1420 IFR=230RR=24THENY$(1)="The glass breaks and cuts me to death* 
S0SUB1E90 
1430 IFR=140RR=15THENGOSUB2690 
1440 IF(R=18GRR=190RR=20) ANDBA=STHENPRINT"My fairy godacther reapoe 
ars and" 
1441 IF(R={80RR={9ORR=20) ANDEZ=STHENPRINT"waves her MAGIC WAND! ":P% 
265 
1444 TF(R={30RR=!90RR=20) ANDBA=STHENPRINT"I am wearing 2 beautiful 
golden dress" 
1445 IF (R={BGRR={90RR=20) ANDBA=STHENPRINT"and glass slippers" 
1446 IF (R=190RR=190RR=20) ANDBA=STHENPRINT"She says ‘be sure to retu 
rn by t2pa°* 
{447 [F(R=L8GRR=i9ORR=20) ANDBA=STHENK=1: 
1450 EX=0 
1455 FORD=1103 
1457 IFV$iD)="*" THEN V$(D)=G$(NE(R)) sEX=1:D=5 
1460 NEXT 
1470 IFEX=OTHENPRINT' I’m sorry i just can’t carry any more! ":K=1:RE 
TURN 
1480 BRINZIR)  1)20:K=1: RETURN 
1490 REM CHECK ROUTINE 
1500 L$=*" 
1505 FORH=1TOLEN(7$) 
le IF MIDS{Z$,H,1)=" "THENLS=RIGHTS(Z$, (LEN(2$}-H)) sHEH+4O 
520 NEXT 
1530 R=O:La=0 
1535 [FLEN{L$)<2THENK=i:RETURN 
1540 FORH=i 1027: [FLEFTS(NS(H} LEM{L#))=L$ THENLZ=i:R=H 
1550 NEXT 
1560 K=1: RETURN 
1570 REM ROUTINE FOR DROP 
1580 GOSUB1S00 
1590 IFLAC3{THENPRINT"! can’t see a :-"yL$:K=1:RETURN 
1600 K=1:E%=0 
1810 FORD=1T03 
1620 TFVS(D)=GSiNZ{R}) THEN Veidr=""SEZ=! 
1630 NEAT 
1640 IFEZC1 THENPRINT"I haven’t got it!!! !":RETURN 
1650 BY(NAIR), 1)=P% 
1660 CLS 
1670 IFR=13THENSA=0 
1680 K=1: RETURN 
1690 RM IVENTORY ROUTINE 
1700 PRINTCHR${129);"I have :-* 
1710 FL=0 
1720 FORH=1T03 
1730 IFVS(H}<3""THENPRINTV$(H) :FI=% 
1740 NEXT 
1750 IFFZ=OTHENPRINTCHR$ (131); "Nothing at a]]'" 
1760 PRINT 


‘ 
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1770 K=1:RETURN 

1790 Kei: IFPZ¢>{THENPRINT"Don’t be a SILLY BILLY! 

1800 PRINT] need the IKEY$ to unlock the door": RETURN 

1810 REM KISS ROUTINE 

1820 IFPE=SSTHENP2=72: PRINT "The pri ince takes ae for a dance!*:K=i:R 
ETURN 

1830 PRINT"There is nobody here I feel like kissing!":K={:RETURN 
1940 REM GIVE ROUTINE 

{850 K=i:PRINT"There is nothing I’d like to give!":RETURN 

1860 REM KILL ROUTINE 

1870 IFPA<PIOSTHENPRINT"Not here and now!":K=1:RETURN 

1880 REM LOSE ROUTINE 

1890 CUS:FORX=1702 

1900 PLOTI,%, 14:PLOT2,X,X+i:PLOT3,X,"That’s done it [rilirereteren 
1910 NEXT 

1920 RESTORE 

1925 PLOTL, 10, 1:PLOTL, 10, X#{1) 

1930 PLOTI,15,3:PLOT2,15,"The handsome prince has married ny" 
1934 PLOTI,17,2:PLOT{5, £7, "UGLY sister” 

1936 PLOTi,22,1:PLOT2,22,"How could he do this to me 7777?" 

1812 FORT=1T034: READY 

1945 MUSIC1,3,1%,0 

1947 PLAY1,0,4,500 

1950 WAIT20 

1955 NEXT 

1956 PLAYO,0,0,0 

1957 SHOOT: WAIT20:SHOOT:WAIT10: SHOOT 

1960 PLOT1,24,6 

1970 PLOT2,24,"Do you want another gamd <¥/N> ?" 

1980 REPEAT 

1982 GETA$ 

1990 UNTIL{AS="Y"QRA$="N") 

2000 IFAS="Y"THENPRINTCHRS (17) sRUN: REM TURN CURSOR OFF 

2010 CLS:PLOT1, 15, i:PLOT2, 15, "Thank you tor playing!!!" 

2020 PLOTI,25,3:PLOT10, 25, "GOODBYE!!! !'" 

2025 END 

2040 DATAa mouse trap. There are 4 mice in it,é 

2041 DATAsome cinders,?,a spade, li,an apple tree,13,*",i5,a dustbin 
ii 

2042 DATAa large pumpkin, ié,some dirty pots,!8,a broom,20 

2044 DATAa Mbeautiful wedding dress #4,22,one of ay ugly sisters,2 


SO DATAa pair of cld shoes,27,a rat trap with one rat in it,29 
2 DATAa cucumber frame, i4,°",14,some food,42,some flowers, 46 

So DATAa tray of drinks, 55,2 receptionist,40,Prince ( Chara@ing, os 
54 DATAthe prince,7 

2060 DATAay ugly sisters,3,"",9 

2079 DATAMOUSE, 1,MICE,1, TRAP, 1 HRSE. 1, CINDERS, 2. SPADE, 3, APPLE, 4, TRE 


to be ty hehe 


20 
0 
20 
20 


2072 DATADUSTBIN, &, PUMPKIN, 7, CCH, 7 


2080 DATAUGLY, 11, SISTERS, 11, SHOES. 12, SLIPPER, 12, GLASS, i2, RAT, 13, TRA 


15, FOOTMEN, i5,FO0D, 18 
PTIONIST, 19, PRINCE, 20, S187 


2084 DATAASLIPPER 
2090 REM WASH UP ROUTINE 
2109 K=1 


2102 IFPECPIQTHENPRINT"NOT ROW!!!) ":RE 
Ri 


5.5 


2110 PRINTCHRS(129)"I wash ali the dishes and my UGLY" 
21i1 PRINTCHRS(i30) “sister goes away! *:AZ=1:5%(18,1)=8:6$(8}="some 


clean pots" 
2120 REM SUBROUTINE FOR PRAYING/CRYING! 
2130 K=1 
2135 IFPL22THENPRINTCARS (1293 "Nothing happens! ": RETURN 
2140 ZAP: WAIT20: PING: WAIT20: ZAP 
2150 IFBZ=4THEN2180 ELSEIF BX=5 THEN2200 
2160 PRINTCHRS (171) "My fairy acdacther apsear 
2ih4 PRINTCHRS (131) "me to go and find:-" 
2170 PRINT*six aice,one rat,two lizards and " 
2175 PRINT"the biggest PUMPKIN I can find” 
2177 PRINTCHRS(129)"’ Bring these to the back yard’ she": PRINTCHR${1 
29) "says" 
2179 RETURN 
2180 PRINTCHRS (129) "MY FAIRY GODMOTHER REAPPEARS!":WAIT10: ZAP 
2190 PRINT*She waves her magic wand & something magical happens!" 
2191 G$(ij="six magnificent white horses’ 
2192 G$(7)="a beautiful glass coach” 
2193 G$(13)="a handsome footman" 
2194 G$(15)="two coachsen" 
M95 S=FREI*") 
2196 AB=1:RETURN 
2206 PRINT"My fairy godmother reappears & says ";CHR${129)"you are 
doing well!" 
2202 PRINTCHRS (131); "now find some";CHR$(129) "SHOES" sCHR${13i)"to w 
ear!" 
am RETURN 
2210 REM SEARCH ROUTINE 
209 20 KLsTFPACL4THENPRINT"'Y h'ven*t found anything! "s 
2225 PRINTCHRS{129)"1 can see something run out of the ":PRINTCHRS( 
129) "frame." 
2227 G$(15)="Two small lizards"sRETURN 
2230 REM ROUTINE FOR SWEEP 
2240 K=isTFPUCP20THENPRINT NOT HERE! "BRETURN 
2250 [FSACHITHENPRINT"! need something to do that with! ":RETURN 
2240 PRINTCHRS(129)"O.K. ay UGLY sister likes that":S%(20,1)=19 
2262 CX=1:RETURN 
REM ¥4 SCORE ROUTINE 
BA=O: TFBACIS, Li=L5THEN BR=Bi+) 
IFBLEL5, 15 15 THEN BU=Bu+! 
2300 [FBAC1,1)=15 THEN B2=B2+i 
2310 IFBL(7, 1)= =15 THEN BI=BZ+i 
2320 IF AB={THENBZ=Bit! 


. 


2340 REM ROUTINE FOR HELP STATEMENTS 

2350 K=1 

2355 IFPL=4THENPRINTCHRS (121) "MOST OLD HOUSES HAVE SECRET PANELS” 
Zi IFPL=4THENPRINTCHRS (129) "Why not try PUSHing the PANEL":RETURN 
2360 IFPZ=SSTHENPRINTCHRS(i29::"I'd have a dance if I were you! ":RE 
TURN 

2383 IFPL=72THENPRINTCHRS! 
2376 IFMZ=!9THENPRINTCHRS (129: 


j RUN Rome if 
ge home! ":RE 


i were vou! ": RETURN 
TURN 


BuN}s!] B||249pul> 


aTeMITOS 


SS 4aUMGQ IUC 


2380 JFPL=14THENPRINTCHRS (i31; "SEARCH and you shall find":RETURN 
2390 IFPZ=S650RPL=460RPL=47 THENPRINTCHRS (129) ;"I¢ i were you 1’d WAI 
T around" 

2392 IFP%=450RP%=460RP%=67 THENRE TURN 


2490 PRINTCHRS(130)"I’m sorry I don’t have a clue!” 

2401 PRINTCHRS(129);"BUT a good CRY is often useful!!* 

2402 PRINTCHRS${130)3"and I often get help when I say ay":PRINT" pra 
yers!” 

2404 RETURN 

2410 REM PUSH ROUTINE 

2420 K=1 

2422 IFP%¢>4THENPRINTCHRS{129);"Not at the aoment!": 

2424 PRINTCHRS(129)"A SECRET p'nel slides to one side":S2(4.1)=5:RE 
TURN 

2430 REM JUMP ROUTINE! 

D480 Vat :PRINTCHRSITIN "Not Likely’ I aight brea. ay neck! *sRETURY 
2450 REM WAIT ROUTINE 

2460 K=1 

2464 PRINTCHRS (129): “f.K. "sHATTIO 

2470 IFP2=65THENPZ=66: 

2474 IFPL=66THENPRINT"The footaan cpens the door & I get out" 

2475 IFPZ=66THENPRINT*The coach disappears by aagic!":P2=36: 

2477 IFP2=67THENPL=49:RETURN 

2480 RETURN 

2490 REM DANCE RUTINE 

2500 IFPZ=SSTHENP2=72:PRINT’The prince likes that!":K=1:RETURN 
2505 PRINTCHRS{129)"’@ not dancing here!":K=1: 

2510 REM ROUTINE TO CHECK FOR MIDNIGHT 

2520 Jt=J%+1 

2530 PRINTCHR${(129) "BEWARE It is close to aidnight!" 

2540 IFUZ>STHENX$(1)="My clothes turn to rags and I get arreste 
a" 

2541 IFJZSTHEN GOSUB1890 

2550 PRINT 6-J2;"oves till eidnight!" 

2555 RETURN 

2560 REM SUBROUTINE FOR RUN! 

2570 K=1 

2571 IFPL<>72THENPRINTCHR$(132)"I’a too tired to run at the moment! 
"SRETURN | . 

2580 PRINTCHRS$(129);°I run away from the ball as fast as I" 

2583 PRINTCHRS(129)"can. I aust have left ay slipper" 

2585 PRINT" behind. It strikes 12pm. and ay clothds turn to r 
ags" 

2586 M2Z=19:P2=63:RETURN 

2590 REM ROUTINE FOR VISIT 

2600 K=i:PRINTCHR$(129)"Two of the prince’s servants knock on" 

2602 PRINTCHRS(129)"the door and s‘y that the prince will" 

2604 PRINTCHR$(129) "MARRY the girl who can wear the Glass" 

2606 PRINTCHRS$(129) "slipper!!!" 

2610 RETURN 

2620 REM SUBROUTINE FOR WEARING SHOE 

2630 K=1 

2645 IFMZ=L9THENPRINTCHRS(131}"THE SLIPPER FITS!" 

2642 IFMZ=19THENPRINTCHRS$ (129) "My fairy godmother reappears & tells 


2644 IFMZ=19THENPRINTCHR$(127)"ae to get the wedding dress'":M%=20: 


2650 IFMZ=21THENPRINTCHR$(129) "My fairy godmother reappears and" 
2652 IFMZ=21THENPING: PRINTCHR$(135) "waves her MAGIC WAND'":P%=67: 
2660 PRINT"Not yet '!'!'!'*; 

2670 REM GET DRESS ROUTINE 

2680 K=1 

2690 IFMZ<>20THENX$(1)="My UGLY sister comes in and hits ae":GOSUB! 
5H 

2700 M%=21:K=isRETURN 

3000 CLS:PAPEROsPLOTO, 1,17 

3010 PLOTO, 25,17 

3020 FORX=1702 

3030 PLOTI, X46, 14:PLOT2, X+6, XsPLOTI4, X+6, "CINDERELLA": NEXT 

3040 PLOT1,5,3:PLOT10,5,"An adventure gaae" 

3050 PLOTi,12,5:PLOT8,12,"<C> 1983 S.W. Lucas® 

3060 PLOT1,22,2:PLOTS,22,"Press <SPACE BAR) to continue." 

3070 REPEAT 

3080 BETAS 

3090 UNTILAS=" ":CLS 

3100 PLOTO, 1, 19:PLOTO, 25,19 

3110 FORX=1702:PLOT!, X46, 14:PLOT2, X46, XsPLOT14, X46, "CINDERELLA": NEX 
T 

3111 PLOT1, 10, 1:PLOT2,10, "My name is Cinderella":PLOT1,12,6 

3112 PLOT2,12, "Since ay aother died, i have lived":PLOT1,13,6 
3413 PLOT2,13,"with ay elderly father and ay two":PLOTI,14,6 
3114 PLOT2,14,"sisters in a large house two ailes":PLOT1,15,6 
S115 PLOT2,15,"trom the Royal Palace. My sisters are":PLOTI, 16,6 
3116 PLOT2,16, "very CRUEL and will not let me go to":PLOT1,17,é 
3it7 PLOT2,17,"the Royal Ball which is to be held in":PLOTI,18,6 
3118 PLOT2,18, "the Royal Palace shortly. ":PLOT!, 22, 12:PLOT2, 22,5 
3119 PLOTS, 22,"Please help ae '''!" 

3120 FORT=17034:READX 

3130 MUSIC1,3,x,0 

3131 PLAY1,0.4,500 

3135 WAITIO 

3140 NEXT 

3150 PLAYO,¢,0,0 

3160 RETURN 
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oTPMATOS 


4aUMQ IUQ 9 


1 PRINTCHRS (17) 


REM THE ENTERTAINER RAG 

REM BY SCOTT JOPLIN 

REM 

REM COPYRIGHT 1983 J. P. HIBBINS 

REM 

S=18:Q=S82:CR=St4 

L=3 

C=1:CC=2: D=3: DD=4: E=5: F=6: FF=7: G=8: GG=9: A=10: AA=11:B=12 

REM 

REM TITLE PAGE 

REM 

CLS:PAPERO: INKS 

FORX=1T09: PRINT: NEXT 

PRINTCHR$ (27) 5 "J" 3CHRS$(27) 3 "D";SPC(S); "SCOTT JOPLIN: ” 
PRINTCHR$ (27) 5 "J0"53CHRS(27)5"F"53SPC(S); "SCOTT JOPLIN: " 
PRINT: PRINT 

PRINTCHR$ (27) 5 "J"3 CHRS (27) 3 "C"3SPC(7); "THE ENTERTAINER RAG" 
PRINTCHR$ (27) ; "J"; CHRS (27) 5"B";SPC(7); "THE ENTERTAINER RAG” 
PRINT: PRINT: PRINT 


INTRODUCTION i? 


MUSIC1,5,D,L:MUSIC2,4,D,L:PLAYS,0,X,Y:WAITS 
MUSIC1,5,€,L:MUSIC2, 4,E,L: WAITS: MUSIC1,5,C,L:MUSIC2, 4,C,L:WAITS 
MUSIC1,4,A,L:MUSIC2,3,A,L:WAITQ:MUSIC1,4,B,L:MUSIC2,3,B,L:WAITS 
MUSIC1, 4,6,L:MUSIC2,3,6,L:WAITQ 

MUSIC1,4,D,L:MUSIC2,3,D,L:WAITS 
MUSIC1,4,E,L:MUSIC2, 3,E,L: WAITS: MUSIC1,4,C,L:MUSIC2,3,C,L:WAITS 
MUSIC1,3,A,L:MUSIC2, 2,A,L:WAIT@:MUSIC1,3,B,L:MUSIC2,2,B,L:WAITS 
MUSIC1,3,6,L:MUSIC2, 2,6,L:WAITO 

MUSIC1,3,D,L:MUSIC2, 2,D,L:WAITS:MUSIC1,3,£,L:MUSIC2,2,E,L:WAITS 
MUSIC1,3,C,L:MUSIC2, 2,C,L: WAITS: MUSIC1,2,A,L:MUSIC2, 1,A,L:WAITO 
MUSIC1,2,B,L:MUSIC2, 1,B,L: WAITS: MUSIC1,2,A,L:MUSIC2,1,A,L:WAITS 
MUSIC1, 2,6G,L:MUSIC2, 1,G6,L:WAITS:MUSIC1, 2,G,L:MUSIC2, 1,6,L:WAITO 
PLAYO, 0,0, 0:L=L+3 

WAIT: MUSIC1, 4,G,L:MUSIC2,3,B,L:MUSIC3,0,6,L 

PLAY7,0, X, Y:WAITQ 

L=L-5 
MUSIC1,3,D,L:MUSIC2, 2, B,L:MUSICS, 2,G6,L:WAITS:MUSIC1,3,DD,L: WAITS 
REM 

REM }; {! FIRST DBL BAR 

REM 

IFP=1 THENH=1 
MUSIC1,3,E,L:MUSIC2, 2,C,L:MUSICS, 2,C,L:WAITS:MUSIC1,4,C,L:WAITS 
MUSTC2,.3.C,L:MUSIC3,2,E, WATTS: MUSIC, 3,£,1.2:WAITS 


» MUSIC1, 4,C,C:MUSICZ, 2,G,L:MUSICS, 1,G,L:WA1TQ 


MUSIC1,3,E,L:MUSIC2,3,C,L:MUSICS, 2, AA,L:WAITS:MUSIC1,4,C,L>:WAITS 
REM 


MUSIC2, 2,F,L:MUSICS, 1,F,L:WAITO:MUSIC2,3,C,L:MUSICS,2,A,L:WAITO 
MUSIC2, 2,E,L:MUSIC3,1,E,L:WAITS 

IFR=1 THENRETURN 

MUSIC1,5,C,L:MUSIC2,4,E,L:WAITS:L=L+1 

MUSIC1,5,D,L:MUSIC2, 4,F,L:MUSICS,2,G6,L:WAITS:L=L+1 

MUSIC1,5, DD,L:MUSIC2, 4,FF,L:WAITS:L=L+1 

MUSIC1,5,£,L:MUSICZ, 4,G,L:MUSICS, 1,6,L:WAITS 


MUSIC1,5,C,L:MUSIC2, 4,E£,L:WAITS: MUSIC1,5,D,L:MUSIC2, 4,F,L:MUSIC3,2,6,L 
WAITS: MUSIC1,5,E,L:MUSIC2, 4,G,L:WAITS:MUSIC3, 1,6,L:WAITS 
MUSIC1,4,B,L:MUSIC2, 4,D,L:WAITS: MUSIC1,5, D,L:MUSIC2, 4,F,L:MUSICS, 2,B,L 
WAITQ:MUSIC1,5,C,L:MUSIC2,4,E,L:MUSICS,2,C,L:WAITO 
IFR=2THENRE TURN 
MUSICS, 1,G,L:WAIT@s : MUSICS, 2,C,L:WAITQ:L=L-2 
MUSIC1,3,D,L:MUSIC2, 2,B,U:MUSICS3, 2,G,L:WAITS: MUSIC1,3,DD,L:WAITS 
R=1:L=L-1:GOSUB430 
WAITS 
L=L+1:MUSIC1,4,A,L:MUSIC2, 4,C,L:MUSIC3, 2,DD,L:WAITS:L=L+1 
MUSIC1,4,6,L:MUSIC2,3,6,L:WAITS:L=L+1 
MUSIC1,4,FF,L:MUSIC2, 3,FF,L:MUSIC3,1,D,L:WAITS 
MUSIC1,4,A,L:MUSIC2, 3, A,L:WNITS: MUSIC1,5,C,L:MUSIC2,4,C,L:MUSICS,2,FF,t 
WAITS 
MUSIC1,5,E,L:MUSIC2, 4,£,L:WAITS:MUSIC3, 2,D,L:WAITS 
MUSIC1,5,D,L:MUSIC2, 4,D,L:WAITS: MUSIC1,5,C,L:MUSIC2, 4,C,L:MUSICS, 2,A,L 
WAITS: MUSIC1,4,A,L:MUSIC2,3,A,L:WAITS 
MUSIC1,5,D,L:MUSIC2, 4,F,L:MUSIC3,2,B,L:WAITO 
MUSICS, 1,G,L:WAITQ: MUSICS, 1,A,L:WAIT@:L=L-1:MUSIC1,3,D,L:MUSIC2, 2,B,L 
MUSICS, 1,B,L:WAITS:L=L-1:MUSIC1,3,DD,L: WAITS 
R=2: GOSUB430 
MUSICS, 2,6, L:WAIT@: MUSICS, 3,C,L:WAIT@: PLAYS, 0, X,Y 
O MUSIC1,5,C,L:MUSIC2,4,C,L:WAITS: MUSIC1,5,D,L:MUSIC2,4,D,L:WAITS 
MUSICS, 2,C,L:PLAY7,0,X,Y:MUSIC1,5,£,L:MUSIC2,4,£,L:WAITS * 
MUSIC1,5,C,:MUSIC2, 4,C,L:WAITS: MUSIC1,5,D,L:MUSIC2, 4,D,L:MUSIC3,3,C,L 
WAITS: MUSIC1,5,E,L:MUSIC2, 4,£,L:WAITS: MUSICS, 1,AA,L:WAITS 
MUSIC1,5,C,L:MUSIC2, 4,C,L:WAITS: MUSIC1,5,D,L:MUSIC2,4,D,L:MUSIC3,3,E,L 
WAITS: MUSIC1,5,C,L:MUSIC2,4,C,L:WAITS 
MUSIC1,5.£,L:MUSIC2, 4,6, :MUSICS, 1,A,L: WAITS: MUSIC1,5,C,L:MUSIC2,4,C,L 
WAITS: MUSIC1,5,D,L:MUSIC2, 4,D,L: MUSICS, 3,F,L:WAITS:MUSIC1,5,E,L 
MUSIC2, 4,£,L:WATTS: MUSICS, 1,66,L:WAITS: MUSIC1,5,C,L:MUSIC2,4,C,L:WAITS 
MUSIC1,5,D,L:MUSIC2, 4,D,L:MUSICS,3,F,L2WAITS 
:MUSIC2, 4,G6,L:MUSIC3, 1,6,L 
a 1,5,D,L:MUSIC2,4,F,L 
MUSICS. 3,C,L:WAITS: MUSIC1,5,£,L:MUSIC2,4,6,L:WAITS 
MUSICS, 1,G,l :WAITS:MUSIC1,4,B,L:MUSIC2,4,D, 
MUSIC1,5,D,L2MUSIC2, 4,F,L:MUSIC,2,B.L:WAITO 
IF 2=1 THENIS® 
MUSIC1,5,C,l:MUSIC2, 4,E£,L:MUSICS, 2,.C,L:WAITO:MUSIC3,1,.G6,L:WAITO 
+A, LEWAITO 
=L ~1:MUSICI,3.D,l :MUSIC2, 
MUSIC1,%,DD,U:WAITS: R=0: Z= 
REM 
2ND DBL BAR 


2,B,L:MUSIC3,1,R,L:WaAItsS 
1:L=L -2:GOTO430 


IFH=1THENGOTO15S0O | 
MUSIC1,5,C,L:MUSIC2,4,E,L:MUSIC3, 2,C,L:WAITQ: MUSICS, 1,6,L+1:WAIT@ 
MUSICS, 1,C,L+1:WAITS 
MUSIC1,4,E£,L:MUSIC2, 4,C,L:WAITS: PLAYS, 0,X.Y 
MUSIC1,4,F,L:MUSIC2, 4,D,L:WAITS:MUSIC1,4,FF,L:MUSIC2,4,DD,L:WAITS 
PLAY7,0,X,Y 
1000 REM BACK TO HERE LATER! 
1010 MUSIC1,4,G,L:MUSIC2,4,£,L:MUSIC3,1,C,L:WAITQ 
1020 MUSIC1,4,A,L:MUSIC2, 4,E,L:MUSICS3, 2,C,L:WAITS: MUSIC1,4,G6,L:MUSIC2, 4,E,L 
1022 IFK=1THEN1065 


SUTQQTH ‘d ‘e Ag 
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IFY=1 ANDR=1THENIO26 1510 IFH=OTHENL=lL-1:G60TO0430 
IFR=1THENRE TURN 1550 MUSIC1,5,C,L:MUSIC2, 4,E,L:MUSIC3, 2,C,L:WAITO: MUSICS, 1,G6,L:WAITO 
MALTS 1555 PLAY4,0,X, Y:WAIT.2:PLAY7, 0, X,¥:MUSIC3,1,C,L:WAITO 
aoe 1560 PLAYO, 0, 0,0:WAITQ:PLAY7,0,X,Y 
MUSICS, 1,6,L:WAITS:MUSIC1,4,£,L:MUSIC2,4,C,L:WAITS 1600 REM REPEAT TO HERE 
MUSIC1,4,F,1 :MUSTIC?. 4.0.1 :MUISTCS, 7.0.1 :WATTS:MUSTIC1. 4,FF.L:MUSIC2, 4,DD,L 1601 IFU=1THENW=1 
WALIS 1610 MUSIC1,3,F,L:MUSIC2, 3,D,L:MUSIC3, 1,F,L:WAIT@:MUSIC1,3,£,L:MUSIC2,3,CC,L 
IFR=1 ANDY=1THENK=1:GOTO1000 1620 MUSICS, 2,A,L:WAITS: MUSIC1,3,F,L:MUSIC2,3,D,L:WAITS 
R=1:GOSUB1000 1630 MUSICS, 1,A,L:WAITS: MUSIC1,3,E£,L:MUSIC2,3,CC,L:WAITS 
WAITS 1640 MUSIC1,3,F,L:MUSIC2,3,D,L:MUSIC3, 2,A,L:WAITQ 
IF X=1 THENRE TURN 1645 MUSIC3,1,F,L:PLAY4,0,X,Y:WAITS 
MUSICS, 1,G,L:WAITS:MUSIC1,4,E,L:WAITS 1650 MUSIC1,3,A,L:MUSIC2,3,F,L:PLAYS,0,X,Y:WAITS 
MUSIC1,4,C,L:MUSIC2,3,£,L:MUSIC3, 2,6,L:WAITS: MUSIC1,3,6,L:WAITS 1660 PLAY7,0,X,¥:MUSIC1,4,D,L:MUSIC3, 2,A,L:WAITS:MUSIC1,3,A,L=WAITS 
MUSIC1,3,A,L:MUSIC2,1,F,L:MUSICS,1,F, JAITS:MUSIC1,3,B,L:WA 1670 MUSIC1,4,C,L:MUSIC2, 1,A,L:MUSIC3,1,A,L:WAITS:MUSIC1,4,D, |AITS 
MUSIC1,4,C,L:MUSIC2,3,F,L:MUSIC3,2,A,L:WAITS:MUSIC1,4,D,L:WAITS 1680 MUSIC1,4,C,L:MUSIC2, 2,A,L:MUSIC3, 2,F,L:WAITS:MUSIC1,3,A,L:WAITS 
MUSIC1,4,E,L:MUSIC2, 2,F,L:MUSIC3, 2,F,L:WAITS:MUSIC1,4,D,L:WAITS 1690 MUSIC1,3.G,L:MUSIC2, 3,£,L:MUSIC3, 2,C,L:WAITO 
MUSIC1,4,C,L:MUSIC2,3,F,L:MUSICS3, 2,G6,L:WAITS:MUSIC1,4,D,L: WAITS 1700 MUSIC1,3,FF,L:MUSIC2, 3,DD,L:MUSICS,3,C,L:WAITS:MUSIC1,3,6,L 
IFY=1 THENRE TURN 1710 MUSIC2,3,E,L:WAITS: MUSICS, 1,G6,L:WAITS:MUSIC1,3,FF,L:MUSIC2,3,DD,L:WAITS 
MUSIC1,3,G6,L:MUSIC2,2,E,L:MUSIC3, 2,E,L: WAITS: MUSIC1,4,E,L:WAITS 1720 MUSIC1,3,G6,L:MUSIC2,3,£,L:MUSIC3,3,C,L:WAITO 
MUSIC1,4,F,L:MUSIC2,3,€,L:MUSIC3,2,G6,L:WAITS:MUSIC1,4,G, 1730 MUSIC1,2,C USIC2,2,C.L:MUSIC3,2,C, 
MUSIC1,4,A,L2MUSIC2,-1,6,L:MUSIC3,1,6, ATTS:MUSIC1,4,G6, 1740 MUSTC1.4,F.1 sMUSTIC2, 3.6.1 :MUSTCS, 3,C,!.:WAITTS:MUSTC1.4.C, 
MUSIC1,4,E,L:MUSIC2,3,£,L:MUSIC3, 2,G,L:WAITS:MUSIC1,4,F,L:WAITS 175U MUSICI,4,D,L:MUSIL, 1,G,1 :MUSICS, 1,6,L:WAITS:MUSIC1,4,E, 
Lie 1740 MUSIC1,4,D,L:MUSIC2,3,C,L:MUSIC3,2,£,1:WAITS:MUSIC1,4,C, 
X=1:GOSUB1000 1765 IFW=1THENGOTO1925 
X=O: MUSICS, 2,E,L2:WAITS: MUSIC1,4,G,L:WAITS 1770 MUSIC1,4,D,L:MUSIC2, 3,B,L:MUSIC3,1,G6,L:WAITO 
MUSIC1,4,A,L:MUSIC2, 2, DD,L:MUSIC3,2,DD,L:WAITS:MUSIC1,4,AA,L:WAITS 1780 MUSIC1, 4, CC,L:MUSIC2, 3, AA,L:MUSICS3, 2,G,L:WAITS:MUSIC1,4,D,L 
MUSIC1,4,B,L:MUSIC2,4,D,L:MUSIC3,2,D,L:WAITS:PLAY4,0,0,0:WAIT.2 1790 MUSIC2, 3, B,L:WAITS: MUSICS, 1,B,L:WAITS:MUSIC1,4,CC,L:MUSIC2,3,AA,L:WAITS 
PLAY7, 0, 0, 0: WAITS: MUSICS, 2,G,L: WAITS: PLAYS, 0, X, Y: WAIT. 2:PLAY7,0,0,0 1800 MUSIC1.4,D.L:MUSIC2, 3, B,L:MUSIC3, 2,G,L:WAITO 

2 MUSIC2, 4,C,L: WAITS: MUSICS, 2,D,L2WAITS:MUSIC1,4,A,L:WAITS 1810 MUSIC1,1,G,L:MUSIC2, 1,G,L:MUSIC3,1,G,L:WAITS:MUSIC1,4,F,L:WAITS 
MUSIC1,4,FF,L:MUSIC2,3,C,L:MUSIC3,2,A,L:WAITS: MUSIC1,4,D,L:WAITS 1820 MUSIC1,4,A,L:MUSIC2, 3,B,L:MUSICS, 2,G,L:WAITS:MUSIC1,4,F, 
MUSIC1,4,G6,L:MUSIC2,3,B,L:MUSIC3,2,6,L:WAITO 1830 MUSIC1,4,6,L:MUSIC2, 2,D,L:MUSIC3,2,D,L:WAITS:MUSIC1,4,A, 
MUSICS, 1,F,L:WAITQ: MUSICS, 1,£,L:WAITS:MUSIC1,4,E,L:MUSIC2,4,C,L:WAITS 1940 MUSIC1,4,G,L:MUSIC2, 3,B,L:MUSIC3, 2,G,L:WAITS:MUSIC1,4,F, 
MUSIC1,4,F,L:MUSIC2,4,D,L:MUSICS3, 1,D,L:WAITS: MUSIC1,4,FF,L:MUSIC2,4,DD,L 1850 L=L+2:MUSIC1,5,C,L:MUSIC2, 3,FF,L:MUSIC3, 2,DD,L:WAITS 
WAITS3X=0: Y=1: GOSUB1000 1860 PLAY6,0, X,Y: WAIT. 2:PLAY7,0,X,Y:WAITS 
MUSIC1,4,C,L:MUSIC2, 2,£,L:MUSIC3, 2,E,L:WAITQ: MUSIC2, 3,£,L:MUSIC3,2,6,L 1870 PLAYO,0,0,0:WAIT.2:PLAY7, 0, X, ¥:WAITS&3: PLAYO, 0,0, 0: WAITS 
WAIT@: MUSICS, 2,C,L:MUSIC2,2,C,L:WAITS:MUSIC1,3,6,L:WAITS 1880 MUSIC1,4,A,L:PLAY7,0,X, ¥:WAITO: MUSIC1,4,G6,1:MUSIC2,3,C,L:MUSIC3,2,E,L 
L=L-1:MUSIC1,3,FF,L:MUSIC2,3,E,L:MUSIC3, 2,AA,L:WAITS: MUSIC1,3,G6,L:WAITS 1890 WAIT@:L=L—3:PLAY1,0,X, ¥:MUSIC1,3,6,L:WAITS: MUSIC1,3,E,L:WAITS 
L=L-1:MUSIC1,4,C,L:MUSIC2,3,A,L:MUSIC3, 2,F,L:WAITQ:PLAYS,0,X,Y:WAIT.2 1895 MUSIC1,3,G,L:WAITQ:MUSIC1, 3,E,l:WAITQ:MUSIC2,3,D,L:MUSIC3, 1,F,L 
PLAY7,0,X,¥:MUSIC1,3,A,L:MUSIC2,3,F,L:WAITS:MUSIC1,4,C,L:WAITS 1900 IFU=OTHENPLAY7, 0, X,Y: :U=1:GO0TO1600 
MUSIC2,3,DD,L:MUSIC3, 2,FF,L:WAITS: MUSIC1,3,A,L:WAITS: PLAY1,0,X, Y:WAIT.2 1925 MUSIC1,3,A,L:MUSIC2, 2,F,L:MUSICS, 1,F,L:WAITS:MUSIC1,3,GG,L:WAITS 
PLAY7.0,X,¥:MUSIC1,4,C,L2WAITS: MUSIC1,3,A,L:WAITS 1930 MUSIC1,3,A,L:MUSIC2,2,D,L:MUSICS, 1,D,L:WAITS:MUSIC1,4,G,L:MUSIC2,35,A,L 
MUSIC1,3,G6,L:MUSIC2,3,E,L:MUSICS, 2,G6,L2WAITS:MUSIC1,4,C,L2WAITS 1940 WAITS: MUSICS, 1,£,L:WAITS: MUSIC1,4,F,L:WAITS: MUSICS, 1,F,L:WAITS 
PLAY1,0,X,Y:WAIT. 2:PLAY7,0,X, Y:MUSIC1,4,E,L:WAITS:MUSIC1,4,G,L:WAITS 1950 MUSIC1, 4,C,L:WAITS:MUSICI,4,£,L:MUSIC2, 3,G6,L:MUSICS, 1,G,L:WAITS 
PLAY1,0,X,Y:WAIT. 2:PLAY7,Q, X,Y: WAITS: MUSIC1,4,E,L:WAITS 1959 MUSIC1.4,DD,L: WAITS: MUSIC1, 4,E,1 :MUSIC2, 3,£,L: MUSICS, 2,6,L:WAITS 
PLAY1,0,.%, Y: WAIT. 2:PLAY7,0,X,¥:MUSIC1,4,C,L:WAITS:MUSIC1,3,G,L:WAITS 1940 MUSIC1.4.A,1:WAITS: MUSIC2, 3, DD,L:MUSICZ, 2,FF,L 
MUSIC1,3,A,L?MUSIC2, 3,FF,L:MUSIC3,2,D,L:WAITO:PLAY1,0,X,Y:WAIT.2 1965 WAITS: MUSIC1,5,C,i:WAITS:MUSIC1, 4,G,L:MUSIC2, 3,£,L:MUSIC3, 2,6,L:WAITS 
PLAY7,0,X,¥:MUSIC1,4,C,L:WAIT@:MUSIC1,4,E,L:MUSIC2,3,F,L:MUSIC3,1,G6,b 1948 MUSIC!,4,£,L:WAITS:MUSIC1,4,C,L:MUSIC2,3,FF,L:MUSICS,1,A,L:WAITO 
WAITS: MUSIC1,4,D,L:WAITS: MUSIC3, 1,B,L:WAITS:MUSIC1,4,C,L:MUSIC2,3,E,L 1970 PLAY4,0, xX, Y:WAIT. 2: MUSICS, 1,D,L:PLAY7,0, x, ¥:WAITQ 
WAITS: MUSIC3,2,C,L:WAITQ:MUSIC3,1,G6,L:WAITO 1975 MUSIC1,4,£,L:MUSIC2, 3,F,L:MUSIC3, 1,G,L:WAITS: MUSIC1,4,D,L:WAITS 
IFP=1THEN1500 1980 MUSIC3, 1,B,1:WAITS:MUSIC1,4,C,L:MUSIC2, 3,E£,L:WAITS: MUSICS, 2,C,L:WAITQ 
MUSICS, 1,£,L:WAITS:MUSIC1,4,£,1:MUSIC2,4,C,L:WAITS 1983 IFTY=0THENI986 ELSE1993 
MUSIC1,4,F,L:MUSIC2, 4,D,L:MUSICS, 1,D,L:WAITS:MUSIC1,4,FF,L 1984 PLAY!,0,X,¥:MUSIC!,3,G,L:WAITS:MUSICI,3,E,L:WAITS:MUSIC1,3,6,L:WAITO 
MUSIC2,4,DD,L:WAITS 1990 MUSIC1,3,E,1:WAITO: TY=1:U=G:W=0:PLAY7,9,X, (OTO1600 
P=1:K=0:R=0: Y=0: X=0:L=L +2: GOSUB1000 1993 L=L+1 
MUSTCS,1,C,L:WAITO 1995 MUSIC3,1,6,L:WAIT@:L=L+1:MUSIC1!,5,C,L:MUSIC2,4,£,L:MUSIC3,1,C,L:WAITO 
X=02K=0: Y=0: R=0 2000 PLAYO,0,9,0 
PLAY1,0,X,¥:MUSIC1,3,D,L:WAITS: MUSIC1,3, DD,L:WAITS:PLAY7,0, X.Y 2001 PRINTCHRS (17) 


dIEMIJOS 
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. Software 


Grand Prix Listing 


By M. Caldwell 


1 CLS 
5S GOSUB&O 
10 GOSUBICc 
20 Y=12 

= 
7O PLOTO,0,17:FLOTS,0 
90 PLOTO,7,” 
100 PLOTO,17, 
110 PLOT12,3, "MILES ™ 

120 PLOTS, 20, "HEIGHEST MILAGE "+STRS (H) 

130 PLOTS, 22,"DRIVEN BY "+X% 

1200 PLOTO,6,A%$:FLOTO,18,A 

1300 L$=LEFT$ (AS, 1): RS=RIGHTS (AS, 37) 

1400 AS=RE+LS 

1500 PLOT18,Y," " 

1510 FLOTO,8,B¢:FLOTO, 16, BS 

1520 PLOTO,9,C#:FLOTO, 15,D% 

530 PLOTO,10,D$:FLOTO, 13,G%:PLOTO, 14, CS 

1550 PLOTO,11,E$:FLOTC,12,F% 

1600 Y$=KEYS 2 

1420 L2$=LEFT$ (C$, 1) :R2S$=RIGHTS$ (CS, 37): LS$=LEFT$ (F%, 1) = RS$=RIGHT$ (FS, 37) 
1630 L3$=LEFTS$(D$, 1) = R3S$=RIGHTS (DS, 37): L&$=LEFTS$ (GS, 1) = RS$=RIGHTS (GS, 37) 
1440 L1$=LEFT$ (BS, 1):R1$=RIGHTS (BS, 37) :L4$=LEFT$ (ES, 1): R4$=RIGHT$(ES, 37) 
1650 CH=R2$+L 2%: ES=R4S+L 45 

1660 D$=R35$+L3$:F$=RSS+L 58 

1670 BS=R1$+L1$:G$=R6$+L6S 

1700 IFY$=""THEN1900 

1800 M=ASC(Y$) 

1900 IFM=11THENY=Y-1 

2000 TFM=10THENY=Y+1 

2100 IFSCRN(18, Y) < >32THENEXPLODE: S=S-10 

2200 PLOT18,Y,">" 

2210 F=F-.065 
2220 PLOTF,0,164 

2300 IFF<1THENZAP: ZAP: ZAP: ZAP: ZAP: GOTO40000 

2400 PLOT19,3,STRS(S) 

2500 IFS¢ 400THENS=S+1EL SES=S+2 

2600 IFS=400THEN20000 

2700 IFS>400THENF=F—. 080 

9000 GOTO1200 

10000 
10100 
10200 
10300 
10400 C 
10500 K K ” 
10600 Gt=" K si 
11010 RETURN 
20000 CLS: ZAP:F=37 
20010 PRINT:PRINT:PRINT"IT GETS HARDER NOW !'!!!" 
20020 CLS: BS="K K kK K " 
20030 K K K ae 
20040 K K K a 
20050 4 
20060 
20070 
20080 Y=12:GOTO70 

40000 CLS 

40100 PRINT:PRINT:PRINT"NO FUEL LEFT,BUT YOU GOT A MILAGE OF” 
40200 PRINT:PRINTS;" MILES” 

40300 IFS>HTHENPRINT:PRINT:PRINT" THAT IS BETTER THAN SOMEBODY CALLED " 
40400 IFS<HTHENFRINT:PRINT: PRINT" THAT MILAGE DOES NOT BEAT THAT OF " 
40500 PRINT: PRINTXS 

40600 IFS>HTHENH=S: INPUT" INFUT YOUR NAME,CHAMP!!!!' "3 x$ 

40700 PRINT:FRINT:PRINT"LIKE ANOTHER GO Y\N?":GETAS 

40800 IFAS="Y"ORAS="y" THENS=0: CLS: GOTO10 
40900 IFAS="N"ORAS="n" THENEND 

41000 GOTO40700 

ANOAM CLS: TES* GOOTHENH=4600: X$="MTCHAEL CALDWELL” 

6uvuLU PRINi:PRINI:PRINI:PRINISEC (10) “GRAND PRIX’ 

60020 PLOT14,5,CHR$(96)+" MICHAEL CALDWELL 1893" 

60030 PRINT:PRINT:PRINT:FRINT"YOU ARE THE *>* AND MUST DODGE THE " 
60040 PRINT: FRINT"*K* USING YOUR CURSER UP AND DOWN " 

60050 PRINT: PRINT"KEYS. THERE TS NO LIVE RESTRICTION " 

60060 PRINT:FRINT"BUT THERE IS ONLY A LIMITED FUEL ” 

60070 PRINT: FPRINT"SUFPLY” 

60080 PRINT: PRINT: FRINTSFC (12) "Good Luck" 

60090 PRINT: PRINT: FRINT:FRINT"PRESS ANY KEY TO START THE GAME!!! !" 
60100 FORA=446576T046585: READZ:FOREA, Z: NEXT 

60110 FORA=46680T046488: READZ: FOKEA, 27: NEXT 

60120 DATAS,3 
60140 DATAD,&,0 
60150 FPRINTCHRS (17) CHRS (6) 

60155 GETAS:FAPERO: INE 7:CLS:RETURN 
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A Question of Death | 


Background 
I am in an extremely difficult 
position! 


My parents died many years ago 
and since then I have not been 
on holiday until this year. After 
years of saving I have taken a 
well earned rest on the sunny 
island of POGLOVIA which is 
situated off the mainland of 
ZOBLOVIA. 


I have had nothing but trouble 
since arriving here. On the first 
day, torrential rain caused 
widespread flooding and many 
areas of the island are still under 
water. My money ran out two 
days ago and to cap it all, the 
Mad Emperor of Zoblovia has 
invaded the island with 10000 
troops and most of the inhabi- 
tants have been killed. 


I have heard that he is in hiding 
somewhere on the island and is 
planning to blow the island up if 
his demands are not met. He is 
asking for the famed DIA- 
MOND OF POGLOVIA. 


Iam at the moment floating on a 
piece of driftwood somewhere 
on the island and the only 
chance of saving the island is to 
GIVE the diamond to the em- 
peror or to kill him. The task is 
made more difficult by the fact 
that there are only 150 moves 
before the island is blown up. 


By S. W. Lucas 


An adventure game for the 48K 
ORIC1 


You must gives me commands in 
the form of TWO WORD sen- 
tences such as GET BOOK, 
EAT FOOD etc. 

GOOD LUCK 


Notes on typing the program in 
When entering the program 
from the listing, you may find 
difficulty if you do not use? as an 
abbreviation for PRINT in long 
lines. The printer used displays 
the hash symbol as £ and when 
entering the program use <shift 
3> to replace £. 


The WAIT command in line 
10185 is there to give you chance 
to read the instructions. Change 
the value to suit yourself. 


Words Understood 

N, S, E, W, UP, DOWN, IN, 
OUT, GO, CLIMB, LOOK, 
SCORE, EAT, RUB, LAMP, 
HELP, DRINK, SAY, SPEAK, 
PRAY, READ, PHONE, 
INVENTORY, ROW, SAIL, 
PADDLE, GO BUS, GO 
RIDE, RIDE, WAIT, JUMP, 
DIVE, GET, GRAB, TAKE, 
GIVE, DROP, LEAVE, PUT, 
OPEN, UNLOCK, KISS, 
EXAMINE, SEARCH, KILL, 
SHOOT, ATTACK, DES- 
TROY, SWIM, EMPEROR, 
ZOBLOVIA, PINT, BEER, 


BAR, SOAP, SUITCASE, 
KEY, DINGHY, LOCK, 
PADLOCK, DRIFTWOOD, 
PUPPY. ICE, NAIL, 
TRUNKS, NEST, DIAMOND, 
TEA, CUP, TABLE, LEVER, 
GUN, BULLET, GIRL 


Hints 
Read this section only in desper- 
ation. 


1. There are 103 locations to visit 
and only 150 moves to succeed in 
your quest. Don’t WAIT around 
anywhere. 

2. There are two possible solu- 
tions. 

(a) find the diamond and GIVE 
DIAMOND to the emperor. 
(b) SHOOT EMPEROR  ~ 
make sure that you have both 
the gun and the bullets. 

3. If you are stuck by the boat try 
GO BOAT or ROW or SAIL. 
4. If you are stuck at the bus 
terminus try GO BUS or RIDE 
BUS or GO RIDE. 

5. If you are stuck at the ravine 
try JUMP. 

6. If you are stuck at the bottom 
of the steps in Woolworths try 
CLIMB. 

7. If you are stuck at the top try 
GO DOWN or just DOWN 

8. If you can’t find the diamond 
try UNLOCKING the SUIT- 
CASE — you will need the key. 
9. If you get stuck at the top of a 
wall try JUMP. 

10. By the swimming baths try 
SWIM, DIVE or JUMP. 
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10 REM ££ A QUESTION OF DEATH ££ 
20 REM ££ AN ADVENTURE GAME ££ 
3O REM £FOR THE 48k ORIC 1£ 

40 REM £ BY S.W. Lucas 198 
45 TEXT: GRAB: FAFERO: INK1:CLS 
46 PRINT: PRINT: PRINT: PRINT 
47 P%=54:6) 
50 GOSUB10000:PLOT1, 25,6:PLOTS, 25, C> 1983 S.W. Lucas” 

7O DIMS%(103, 4) ,X$(35) ,N%(70) ,OS (103) ,G$ (60) ,V$(4) , BZ (103, 1) ,NS(100 


£ 


80 RESTORE: GOSUB1 100: GOSUB2000:CLS 

90 PRINT 

100 PRINTCHR$(131)"I am :—":FRINTQ$(P%) :AQS=""s IFSZCPZ%, 1) SOTHENAS="N 
orth" 


105 A=FRE("") 

110 IFS%(P%, 2) >OANDLEN (A$) >OTHENAS=AS+", South” 

120 IFSA(P%,2) OTHENAS="South" 

130 IFSP ITHENAS=A$+", East” 

140 IFSZ(P OTHENAS="East" 

150 IFSA(P%,4) THENAS=AS+", West" 

160 IFS%(P%, 4) >OANDLEN (A$) =OTHENAS="West " 

170 IFS%(P%, 1) =OANDS% (P%, 3) =OANDSZ (P%, 4) =OANDS% (P%, 2) =OTHENAS="Nnowh 
ere ?" 


180 IFP%=103ANDAA=1 THENCLS: GOTO2600: REM END OF GAME 

184 IFG 49THEN4S0000 

185 IFG%>100THENPRINTCHRS (134) § CHR$ (17) 

190 PRINT: PRINT: PRINTCHR$(130)5"I can go :—":PRINTAS: PRINT: PRINT: PR 
INT 


200 PRINT:PRINT"I have "$150-G%5" moves left!” 

204 E=0:FORT=1TO20:PP% IFB%(T, 1) =PZTHENPPZ=1 

210 LFPPZ=1THEN230 

220 NEXT: GOTO260 

230 IFE=OTHENPRINTCHR$ (134); "That looks like:-" 

240 PRINTG$(T) :E=E+1:GOTO220 

260 PRINT: PRINTCHR$ (133) § 

261 INPUT"What do I do now "3Z%:BS=LEFT$(Z$%, 2) :C$=LEFT$(Z$,3) 
262 CLS: G%=G%+1:PING 

263 PRINTCHR$(134)3"HANG ON A SEC!" 

270 IFC$="LOO"THEN9O 

280 IFC$="SCO"THENPRINTCHRS$(131)3 "This isn*t a game you know!":GOTO 


"EAT" THENPRINTX% (9) : GOTO90 

"RUB LAMP" THENPRINTX$ (12) s GOTO90 

"HEL" THENPRINTX$% (16) : GOTO90 

293 IFC$="DRI"THENPRINT"I only drink milk and I can’t see any":GOTO 


294 IFCS%="SAY"ORC$="SPE" THENPRINTX$ (4) : GOTO90 
295 IFC$="PRA"THENPRINTX$ (18) : PRINTCHR$ (131)3 "nothing happens":GOTO 


296 IFBS="N"ANDS%(P%, 1) < >OTHENP%=S% (P%, 1) s GOTO90 

297 IFBS="S"ANDS% (P%, 2) < >OTHENP% (P%, 2): GOTO90 

298 IFBS="E"ANDSZ (P%, 3) < }OTHENP%=S% (P%, 3) s GOTO9O 

299 IFBS="W"ANDS% (P%, 4) < >OTHENP%=S% (P%, 4) : GOTO9O 

300 IFBS="RE"THENPRINT"I can’t see anything to read":GOTO90 
301 IFB$="S"ORBS="N"ORB$="E"ORBS="W"THENPRINT"I can’t go that way": 
GOTO90 

302 "PHO" THENPRINT"don’t be silly now":GOTO90 

303 FU"ORB$="PI"THENPRINTX$ (22) : GOTO90 

304 BUG" THENPRINTX$ (23) : GOTO90 

305 "INV" THEN6600 

309 IFCS="ROW"ORC$="SAI"ORC$="PAD"ORZ$="GO DINGHY" THEN6900 
310 IFBS="UP"ORC$="CLI"ORZ$="GO UP" THENS000 

315 IFC$="DOW"ORZ$="GO DOWN" THEN3100 

320 IFC%="QUT"ORZ$="GO OUT" THEN3S300 

325 IFBS="IN"ORZ$="GO IN" THEN3400 

330 IFZ$="GO BUS"ORZ$="GO RIDE"ORCS="RID"THENS500 

335 IFCS="WAI" THENPRINTX$ (27) : WAIT100: G4=G%+1:GOTO100:REM WAITING U 
SES 2 TURNS 

340 IFC$="JUM" THEN3SS50 

345 IFCS: IV" THEN3560 

350 IFB$="GE"ORBS="GR"ORBS="TA" THEN4000 

360 IFC$="DRO"ORCS="LEA"ORCS="PUT" THEN6000 

365 IFCS="OPEN" ANDP%=64 THENPRINTX$% (26) : GOTO100 

INL" THEN6 700 

<IS"THEN6800 

IV"THEN7000 

"EXA"THENPRINT"I can*t see anything special":GOTO100 
EA" THENPRINT"I can’t see anything here":GOTO100 
IL"ORC$="SHO"ORCS$="ATT"ORC$="DES" THEN7500 
SWI"THENPRINT"JUST GIVE ME A DIRECTION & I*LL SWIM IF I 


HAVE TO!" 
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397 IFCS="SWI" THEN100 
400 PRINTX$(5) :GOTO90 
1000 END 

1100 FORH=1T0103: READQS$ (H) : FORD=1 704: READS% (H, D) :NEXTD,H: RETURN 
2000 FORD=1TO35: READX#(D) :NEXTD 

2010 FORH=1T020: READGS$ (H) , B%(H, 1) = NEXT 

2020 FORH=1T027: READN$ (H) ,N%(H) s NEXT 

2500 RETURN 

2600 PLOT1,10,3:PLOT8,10,"W ELL DONE" 

2601 SOUND1,0,0:SOUND1,0,0 

2610 PLOT1,15,2:PLOT2,15,"You have solved this adventure" 

2620 FORX=1T010:FORY=255 TO 1 STEP-3: SOUND1, Y, 10: SOUND1, 255-Y, 15:NE 
XTY,X 

2630 SOUND1,0,0 

3000 IFP%=29THENPRINTX$ (7) = GOTO100 

3001 IFP%=100THENPRINTX$(7) :P%=101: GOTO100 

3002 IFI STHENPRINT"I try to climb out, but slip back" 

3003 IFP%=13THENPRINT"in the mud. I could be here forever!":GOTO100 
3004 IFP%Z=60THENPRINTX$(7) : PY 
3005 IFP%=41 THENPRINTX$ (7): 


OTHENPRINTX$ (8) :P%=29: GOTO100 
OTHENPRINTX$ (8) :P%=41:GOTO100 

O1THENPRINTX$ (8) :P%=100: GOTO100 

1 THENPRINTX$% (8) :P%=60: GOTO100 

O06 

4THENPRINTX$ (27) 2 P%=73: GOTO100 

3310 IFP%=2BTHENP%=27: PRINTX$ (27) sGOTO100 

3320 PRINT"I am not able to do that here idiot!":GOTO100 

3360 IFP“=25THENPRINT"safe landing '. I landed in some soft sand":P 
%=35: GOTO100 

3365 IFPZ=63THENPRINT"S F L A S H": EXPLODE: P%=59: GOTO100 
8:FPRINTX$(27):GOTO100 
4:PRINTX$ (27) :GOTO100 

3420 PRINT"I can*t do that here !":GOTO100 

3500 IFP%=26THENPRINT"There isn’t a bus in sight !":GOTO100 
3510 IFP%=38THENPRINTX$(27):PRINT"I get off at the next stop" 
:GOTO100 

3520 PRINT"DON’T BE STUPID !!!!":GOTO100 

3550 IFP%=9OTHENPRINTX$ (27) :P%=89: GOTO100 

3555 IFP%=89THENP%=90:PRINT"I just made it":GOTO100 

3560 STHENPRINT"S P LA S H":EXPLODE:P%=15:GOTO100 
3570 IFP%=S9THENPRINT" SPLASH": EXPLODE: P%=15: GOTO100 

3580 PRINT"I can’t do that here!":GOTO100 

3737 IFSE=1THENPRINTX$ (25) :GOTO100 

4000 GOSUBSO00O 

4010 IFLZ=1THEN4S030 

4020 GOTO90 

4030 Ex=0 

4040 FORH=1T020: IFB%(H, 1) =PZANDBY% (N%(R) , 1) =PXTHENE%=1 
4050 NEXT 

4060 IFEZ=OTHEN9O 

4070 IFP%=103AND (R=10RR=2) THENPRINTX$ (19) :GOTO100 

4080 IFR=8THENSA=1 

4090 IFR=18THENSB=1 

4100 IFR=26THENSC=1 

4103 STHENSE=1 

4110 IFP%=64ANDR=7ANDSE< > 1 THENPRINTX$ (3) : GOTO100 


%=26 


4120 4ANDR=23ANDSE< >1THENPRINT"I can’t see it here GOTO100 
4130 S6ANDR=27THENPRINT" I?m not that sort of person! ":GOTO100 
4140 IFP%=9BANDR=24THENPRINT" It’s stuck":GOTO100 

4150 IFR=23THENSS=1 

4160 IFR=15ANDP%=23THENPRINTX$ (11): SHOOT: GOTO100 

4500 E%=0: FORD=1TO3: IFV$(D) =""THENV$ (D) =G$(N%(R) ) 3E%=1: D=5 

4510 NEXT 

4520 IFEZ=OTHENPRINT"I can’t carry any more":GOTO90 

4530 BXZ(NZ(R) , 1) =O: GOTOI0 

5000 L$="":FORH=1 TOLEN(Z$) 

5010 IFMID$(Z$,H,1)="_ "“THENL$=RIGHT$(Z$, (LEN(Z$) —H) ) sH=H+40 

5020 

S030 O: IFLEN(L%) <2THENRETURN 

5040 TO27: IFLEFT$(N$(H),LEN(L$))=L$ THENL%=1:R=H 

5050 

5060 


6000 GOSUBS000 

6010 IFL%=1THEN6030 

6020 PRINT"I can’t see a "3L$:GOTO100 

6030 Ex=0 

6040 FORD=1TO3: IFV$(D) =G$ (N%(R) ) THENV$ (D) =""sE%Z=1 
6050 NEXT 

6055 IFE%=1THEN6070 


6060 PRINT"I haven’t got it":GOTO100 

6070 BZ(NZ(R),1)=P% 

6080 CLS 

cal TFR=26THENSC=OEL SE IFR=25 THENSB=OEL SE IFR=8 THANSA=OEL SE IFR7THENS 
6100 IFR=22THENSS=0 

6500 GOTO100 

6600 PRINTCHR$(129)3"I have :-" 

6610 Fx%=0 

6620 FORH=1TOS3: IFV$(H)<>""THENPRINTV$(H) 2 F2=1 

6630 NEXT 

6640 IFFZ=OTHENPRINT"not a sausage” 

6660 GOTO100 

6700 IFP%=640RP%=35THEN6720 

6710 PRINT"Don’t be silly":GOTO100 

6720 4ANDSA< >1 THENPRINTX% (15) :GOTO100 

6730 ‘SSTHENPRINT"The padlock is too rusty to unlock":GOTO100 
6735 IFSE=0 THEN6740 ELSEPRINTX$%(25) :GOTO100 

4740 SE=1:PRINTX$ (29) : PRINTX$ (30) :G$(16)="The £DIAMONDE of Poglovia 
“:GOTO100 

6800 PRINTX$(27):PRINT"She smiles for a second":GOTO100 

6900 IFP% SORP%=SZ2THENGP1LOELSEPRINT"I can*t do that here": GOTO100 
6910 IFP%=S2THENPRINTX$(27):PRINT"I sail the boat":P%=53:B%z(6,1)=53 
:GOTO100 

6920 PRINTX#(27):PRINT"I paddle the boat":P%=52:B% (6, 1) =52:GOTO100 
7000 IFP%<>103THENPRINT"I can’t give the diamond yet":GOTO100 

7010 IFSS<>1THENX$(1)="I didn’t have the diamond & He didn’t like t 
hat!" 

7020 IFSS< >1THENGOTO40000 

7030 jOTO2600 

7500 STHENPRINT"Don*t be so cruel!":GOTO100 

7510 STHENPRINT"I’m not a sadist !":GOTO100 

7520 IFP%<>1O03THENPRINT"Not now !":GOTO100 

7530 IFSB< >1THENPRINT"I haven’t any weapon":GOTO100 

7540 IFSC<>1THENPRINT"I PULL THE GUN !, but I have no bullet":WAIT1 
00 

7550 IFSC<>1THENX$(1)="I DON*T THINK HE LIKED THAT! ":GOTO40000 

7560 PRINT"I quickly load the gun and shoot": SHOOT 

7570 WAIT200:CLS 

7575 PLAY1,0,2,0:GOTO2600 

10000 FORX=1TO2:PLOT1,X,14:PLOT2,X,X+2:PLOT8,X,"A QUESTION OF DEATH 
"NEXT 

10005 PRINT"I am in a very difficult situation" 

10010 PRINT"Whilst on holiday on the tiny island" 

10020 PRINT"of Poglovia which is situated off the" 

10030 PRINT"coast of mainland Zoblovia, I have" 

10040 PRINT"experienced several disasters." 

10050 PRINT"On the first day the heavy rains " 

10060 PRINT"caused extensive flooding. Many areas" 

10070 PRINT“of the island are still flooded." 

10080 PRINT"I ran out of money two days ago and ," 

10090 PRINT"to cap it all, the mad EMPEROR OF" 

10095 PRINT"ZOBLOVIA has invaded the island and" 

10096 PRINT"Killed most of the inhabitants." 

10100 PRINT"I have been told that he is hiding in" 

10110 PRINT"a secret hideout somewhere on the " 

10120 PRINT"the island and is planning to blow up" 

10130 PRINT"the island if he does not get the " 

10140 PRINT"the DIAMOND OF FOGLOVIA ." 

10150 PRINT"I must try to get the diamond to him" 

10160 PRINT"“or kill him before he blows the island"; 

10170 PRINT"up. I have only 150 moves in which to do this." 

10180 PRINT" GOOD LUCK" 

10185 WAIT1000:REM CHANGE WAIT TIME TO GIVE MORE TIME TO READ INSTR 
UCTIONS 

10190 RETURN 

30000 DATAin Flogovia High Street, 
rea,1,3,0,0 

30010 DATAin the shopping precinct,2,4,8,7,outside the public libra 
ry,3,5,0,6 

30020 DATAin the civic centre,4,16,12,0,by the checkout desk of the 
library 

30030 DATAO,0,4,86,in a small chemist’s shop,9,0,3,0,0n a main road 
29,9;,9,35 

30040 DATAon a main road,0,0,10,8,by some traffic lights,26,0,11,9 

30050 DATAby a workman’s hut. There is a hole inthe ground SOUTH of 
here 

30051 DATAOG,0,0,10 

FO06O DATAat the entrance to some swimming baths,0,0,0,5 

30070 DATAat the bottom of a large hole,0,0,0,0 

30075 DATAat the shallow end of a swimming pool,12,0,0,0 


sin the main shopping a 
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30076 DATAswimming in the deep end,0,58 

30080 DATAO,0,in the village square,5,0,0,17,outside the HOTEL POST 
70,21,16,18 

30090 DATAon a narrow footpath leading towards the forest,0,0,17,1 
sf 

30100 DATAin the forest. There is a tree I couldclimb here,0,0,18,0 
30110 DATAat the top of a tree,9,0,0,0,in the hotel entrance,17,64, 
0,90 

30120 DATAin the high street,73,1,24,0,in an amusement arcade, 24,0, 
Ost 

30130 DATAin a disused alleyway,0,23,25,22,0n top of a low wall,0,0 
30,24 

30140 DATAat a bus stop,0,10,0,0,outside Woolworth’s,0,0,1,0 

30150 -DATAin the gardening department it is by the entrance 

30155 DATAO,0,0,29,at the bottom of a staircase. 

30160 DATAO, 34, 28,0,at the top of the stairs,0,0,31,0,in the electr 
ical dept. 

30170 DATAO,32,233,30,in the cafeteria,21,0,0,0,by a lighting displa 
y,0,0,0,31 

30180 DATAat the checkout, 29,0,0,0 

30190 DATAin a loading bay,0,0,36,0,in a narrow tunnel,0,37,0,35 
30195 DATAat the end of a tunnel,36,0,38,0 

30200 DATAat a bus terminus. There are plenty ofbuses here.,39,0,0, 


30210 DATAat the edge of town,0,38,40,0 
30220 DATAat some traffic lights. There is an open manhole here,4 


10595 
30230 DATAat the bottom of a sewer. It is full of £££F",0,0,0,0 
30240 DATAon a main road. The river nearby has burst its banks,45, 
40,0,43 

30250 DATApaddling in about four feet of water.,44,0,42,0 

30260 DATAoutside Barclays Bank. It is flooded,50,43,45,46 

30270 DATAwhere the floods have swept the road North away.,0,42,0, 
44 

30280 DATAin the entrance to the bank. It is flooded, 49,47,44,48 
30282 DATAat the bank counter. There is no-one here !,46,0,0,0 
30285 DATAin the main hall of the bank,0,0,46,0 

30290 DATAin the managers office. It is flooded to a depth of 10 fe 
et fie 

30300 DATAO,46,0,0,by a cinema. The flooding here is bad,52,44,51,0 
30310 DATAinside the entrance of the cinema. It is shut!,0,0,0,50 
30320 DATAin the road. The flooding to the Northprevents me from go 
ing further 


30330 DATAO,50,0,0,by the roof of a large flooded building,S 
5,0,0,54 
30340 DATAon a large plank of wood which is floating on the wat 


er,0,0,53,0 
30350 DATAon the roof of the building,0,53,56,0,by a chimney,0,57,0 
+55 

30360 DATAat the other side of the roof. The floods stretch for 
miles. 

30370 DATAS46,0,0,0,0n the stepsyat the side of the pool,15,0,59,0 
30380 DATAat the side of the pool,0,60,0,58,at the bottom of some s 
teps 

30370 DATAS9,9,0,0,0n a balcony,0,0,62,0,0n a diving board,63,0,0,6 
1 

30400 DATAat the end of the board,0,63,0,0 

30410 DATAin the reception, 21,65,0,0,in the main hall,64,0,66,0 
30420 DATAat the end of the hall. There are people dining here. 
39,67,0,65 

30430 DATAat the end of a long bar,66,0,68,0,at the other end of th 
e bar 

30440 DATAO,69,0,67,in a lounge, 68,71,70,72,in the toilets,0,0,0,469 
30450 DATAat the end of the lounge, 69,0,0,0,in an alcove,0,0,69,0 
30460 DATAat the entrance to *PLOGVIA ICE CAVES’,0,22,0,0 

30470 DATAin a vast gloomy cavern. There is a guide here. He is D 
EAD! 

30471 DATA75S,0,0,0 

30480 DATAat the end of the gloomy cavern,85,74,76,80 

30490 DATAin a wide passage,0,77,0,75,in a narrow passage, 76,0,78,0 
30500 DATAin the narrow passage. It twists roundhere, 79,0,0,77 
30510 DATAin the passage, 88,78,0,0,by a subterranian waterfall,84,8 
1,75,82 

30520 DATAon a narrow ledge at the side of the waterfall,80,83,0,0 
30530 DATApaddling in the waterfall. I daren*t go further.,0,0,80, 
oO 

[0540 DATAat a dead end,81,0,0,0,in a narrow passage.Ice blocks the 
wayNorth 

30550 DATAO,80,0,0,in a small cave,9,75,0,0,in the reference sectio 
n,0,0,6,87 

30560 DATAin a reading room,0,0,86,0,at the end of the gloomy passa 
ge,89,79,0 


30570 DATAO,in a small chamber. There is a narrow ravine to the Nes 

0,88,0,0 

30580 DATAon a narrow ledge. There is a Passage South across the ra 

vine.,91,0 

30590 DATAO,O,in a passage deep inside the mountain, 0,90,93,92 

30600 DATAat a junction with passages in many directions,97,96,91 
oO 

3 

30610 DATAin a tunnel of ice,94,95,0,91,in a vast underground chamb 

er,0,93,0,0 

30620 DATAin a chamber with a stalactite made ofice. It is enormous 
393,0,0,0 

30630 DATAin a small office. It seems strange tofind an office here 
!,92,0,0,0 

30640 DATAin a sloping corridor. It’s obviously man made,0,92,0,98 

30650 DATAin a winding passage,0,99,97,0,in a corridor, 98,100,0,0 

30660 DATAby a sheer wall of ice. There is a rope hanging down h 

ere. 

30670 DATA99,0,0,0,at the top of the rope,0,0,102,0,in a corridor,0 
5 103,0, 101 

30680 DATAIN THE HALL OF THE MAD EMPEROR OF ZOBLOVIA. HE IS HER 

E tree 

30690 DATA102,0,0,0 

34000 DATA"",it’s far too dangerous, It’s too heavy to lift | 

34010 DATAI*m sorry I don*t speak the language, I’m sorry I can’t un 

derstand you 

34020 DATAIt’s stuck, I climb up,I climb down,I’m not hungry 

34030 DATAThat word is not in my limited vocabulary !,AGGGHH 

H it got me 

34040 DATARubbing an electric lamp is stupid, I*ve heard that one be 

fore 

34050 DATAI*’m nearly there 

34055 DATAI don’t have a key,I don’t have a clue 

34060 DATATime is running out,I’1l try it if you like,I wouldn’t re 

commend it 

34070 DATAWhat an ugly looking thing,not likely,HOW DARE YOU SPEAK 

LIKE THAT 

34080 DATAdon’t be so rude,it said you are a £FFFe 

34085 DATAit’s already open dummy,it’s locked! 

prone DATAQ.K.,something happened,I can see something, 

34100 DATAwhat fun, It* 
do it with 

34110 DATAI’ ve not got a shovel 

35000 DATAThe EMPEROR OF ZOBLOVIA,103,a pint of beer,68,a bar of so 

ap,70 ; 

ee DATAa large suitcase,64,a key,65,a sailing dinghy,53,a padloc 
: 

35030 DATAsome driftwood,54,a small Puppy, 23,some ice,85,a rusty na 

i1,16 

35040 DATAa pair of swimming trunks,58,a nest,20,a cup of tea,32,a 

table, 66 

35050 DATA"",64,a lever,98,a gun,47,a bullet,2 

35060 DATAa small girl who looks very lost,36 

36000 DATAEMPEROR, 1, ZOBLOVIA, 1,PINT, 2, BEER, 2, BAR, 3, SOAF’, 3, SUITCASE, 

4 

36010 DATAKEY,5S, SAILING, 6, DINGHY,6 

36015 DATAPADLOCK, 7,LOCK, 7, DRIFTWOOD, 8, WOOD, 8, PUPPY, 9, ICE, 10,NAIL, 1 

1 

36017 DATATRUNKS, 12, NEST, 13 

36020 DATACUP, 14, TEA, 14, TABLE, 15, DIAMOND, 16, LEVER, 17, GUN, 18, BULLET, 
19 

36030 DATAGIRL, 20 

40000 CLS: EXPLODE: FORX=1TO2 

40004 PRINT: PRINT: PRINT: PRINT: PRINT 

40010 PLOT1,X,14:PLOT2, X,X+1:FLOTS,X,"T RAT * 4 DONE zr 

40014 NEXT 

40020 PRINT: PRINT: PRINTX$(1):PRINT: PRINT: PRINT 

40030 PRINT"He pressed the button":EXPLODE 

40040 PRINT: PRINT: PRINT: PRINTCHR$ (124): "Do you want another game" 

EXPLODE 

40050 REPEAT:GET AS:UNTILAS="Y"ORAS="N" 

40060 IFAS$="Y"THENRUN 

40070 END 


It gleams bri 


s$ too dangerous,It*s too hard,I*ve nothing to 
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Software 


MCLOAD 
By T. C. Brown 


This is a routine for loading M/C 
without a lot of waste data state- 
ments. It works by requesting 
the max. number of bytes 
required then the start location. 


The data is entered in a string (in 
hex code) where it is transferred 
to an array (MCE). There are 
various checks for errors built 
into the routine which (I hope) 
make it “MUG PROOF”. 


1@ REM: Quick m%c load routine 

2@ REM: By T.C.Brown:O0ct1983 

3@ CLS:PRINT=:PRINT :PRINT 

40 INPUT"MAX BYTES REQUIRED" 5MX 

50 PRINT: INPUT"START ADDRESS" 5ST 

60 DIMMC$(MX) :CT=0’ INSTRUCTION COUNTER 
7@ PRINTCHR$(17):CLS’DELETE CURSER 

75 PRINT :PRINT 

8@ PRINTSPCCZICHR$C148ICHR$C131)"Do not 
use the ’#Akey" ;CHR$(148)CH 

R$(151) 

9@ PRINTSPCC7ZICHR$C148ICHR$C131)"or spac 
e symbol" ;CHR$C148)SPCC6ICH 

R$B151) 

10@ PRINT :PRINTSPCC7ZJCHR$C148)"Hex code 
only please" ;CHR$C151):PRIN 

T:PRINT 

110 PRINT: INPUTHX$ 

115 REM: load into array 

116 PRINT" INSTRUCTION", "ADDRESS", "HEX CO 
DE" 

120 : FORC=1TOLENCHX$)STEP2 

130 : MC$CCTRI="#"+MIDSCHX$,C, 2) 

140 : PRINT,CT; ; ,sHEX$CST+CT);,,,MC$CCT 
) 

150 : CT=CT+1 :NEXT 

208 REM: DATA CHECK 

218 PRINTCHR$(C144)CHR$(C135)"Any errors"; 
CHR$C151) 

215 REM: MUG TRAP 

220 INPUT" CY/N)" 5E$:IFLENCE$)> 1THEN220 
230 IFES="Y" THEN30@ 

240 IFE$S="N"THEN25@ ELSE220 

250 PRINT :PRINTSPCC7ICHR$C145)"Any more 
data CY/NJ" ;CHR$C151) 

26@ INPUTD$:IF D$="Y"THENIQQ@ 


270 IFLENCD$)>1THENPING :GOTO260 

288 IFD$="N"THENSHOOT:INPUT"Are you sure 
"SCH$ 

298 IFCH$="Y"THEN4@GELSE250 

300 REM: ERRORS 

31@ INPUT"Instruction number please" ;NUM 

328 INPUT"New data please" ;DD$ 

338 MC$C(CNUMN)J="#"+DD$ 

34@ GOTO21@’CHECK FOR OTHER ERRORS 

40@ REM: DATA ENTRY FINISHED 

41@ PRINT"O.K" 

5@8 REB: POKE INTO ADDRESSES 

510 : FORP=@TOCT 

528 : V=VALCMC$CP)) 

538 : POKEST+P,V 

548 : NEXT 

60@ PRINT"Any further instructions ?" 

618 Q$=KEY$:IF Q$=""THEN610 

620 IF Q$="N"THEN END 

63@ PRINT"Please enter new lines from 7@ 

g" 


A UTIETE NLS 


Lines 3@ to1@@ set up the screen 

Lines 118 to 15@ enter data 

Lines 200 $ 480 are data (& mug Jchecks 
Lines 508 to 54@ poke into the correct | 
ocations 

Lines 6080 to 638 allow for further comma 
nds :(CE.G.’Doke’) 

Data entry is by hex code only in a stri 
ng of upto 8@ characters 
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COMPETITION! 


Oric SuperCrossword 
By Geoff Phillips 


Isr B RIZE — AN AUCPIO —_ 
, ror en lucky runners-up 


we have Defence Force 
& WUlitima Zone! 


| 
| | 
| ; 2 | 
| | 
| hil | 
| | 
| ae | 
| | 
| zx | 
o| a | 
of Poe ied | 
aged | 
= ied | 
7 Oe 
o | 
aed | 
eee | 
o | 
| | 
a a i | 
o | 
a | | 
= | 50 
| ine | 


HOW TO ENTER 
Just complete the crossword and 
return it to: Unit 1, Techno Park, 
Newmarket Rd., Cambridge 
fogether with this completed caption: 


Most answers have something to do with the Oric. 


Clues: Across 


1. You are what you read (4 5). 
4. The late Arthur is a character set (5). 
7. The location of character 64 (2). 
8. The one byte number that represents a BASIC keyword (5). 
11. Get the computer to twiddle its thumbs (4). 
. Getting a weasel out from a subroutine (3). 
. Conditional BASIC word? No — the mirror image! (2) 
. How many complements for the negative number? (4) 
. A question mark against this command (5). 
. Same as 7A (2). 
. The mythical creature steals an eye from the computer (3). 
. As well (4). 
. This number sounds edible! (2). 
. One of those ergonomic things (3). 
. A strangely uneven number (3). 
. The amount of memory sung by Roger Daltry (3) 
. Because (2). 
. This instruction does a lot of donkey work (3). 
_ A priest might do this when a program goes wrong! (4). 
. Better not use FILL in this mode (4). 


. This ill-bred new Tansoft program gets things in the right 
perspective! (3). 


36. A fruity version of Forth (3). 
39. Same as 14A (2). 

41. Out of this world! (2). 

42. EE!! a powerful instruction (3). 


44. A difficult feature to implement on the computer version of 
pinball! (4). 


46. Start a loop after eating radishes (6). 

48. Debug the outline of a program (5). 

50. A curse on your number base (3). 

51. Where they make garbage cans — two at a time! (6). 


52. Two peeks are better than one! (4). 


Down 


1 
2 
3 
4 
5 
6 
7 
9 


. Too much reading can cause an error (3 2 4). 

. Foreground (3). 

. A modern way of wiping out your program? (3). 
. Same as 7A (2), 

. What you wear for upper-case (4). 

. Get some data from your user (5). 

. Fight the rising edge! (6). 

. See 14A. 


. Noisy sound effect (7). 

. You don’t need RUN with this transportable keyword (4). 

. See 23A. 

. Used in conditional rowing? (2). 

. Hip Hip! for all that data! (5). 

. Half of not bad (2). 

. 3 Feet behind the house (4). 

. Dorothy the Pixel. (3). 

_ There’s a lot of these to be splatted in a new Tansoft game. (3). 
. Actually the button connects to the NMI (5). 

. Get the computer to analyse a sentence (5). 

. This language did not come in the top three (5). 

. You can see right through these unwanted variables! (5). 

. You are allowed to omit or buy this keyword (3). 

. Hughey and Ralph, without 1024 — the answer is deliberate. (3). 
. Take a quick look at a memory location (4). 

. Levy the use of a mnemonic (3). 

. The source of London’s power saying Zepplin with a cold? (3). 
. Ampersand (3). 

. See 14A. 
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Software 
“CODE MASTER DELUXE” 


By S. Mellin 


Z-=1D! T-=W! T+MS=MSNGHLV=TOdI, 959 

@-=1d? [-=4? 1+MS=MSNAHL9=Tadl BF9 

@-=1d! T-=G? T+MS=MSNGHLG=TadI 9£9 

@-=1Tdi T-=02 T+MS=MSNSHLO=TadI 629 

Z-=1Td? T-=W: T+MS=MSNGHLV=TddI B19 

Z7-=1Wi T-=4? T+MS=MSNAHLI=TWdII 689 

Z-=TW: [-=G: T+MS=MSNAHLO=TWal 96S 

Z-=1W2 T-=02 T+MS=MSNUHLO=TWaI 28S 

@-=TW! [-=d! T+MS=MSNGHLG=TWal OLS 

@-=1d21-=92 1+S=GSNSHLI=TaaI 99S 

@-=10: 1-=G: T+dS=GSNSHLG=TddI SS 

Z-=1D2 T-=02 T+S=ASNAHLO@TOaI OFS 

Z-=Tdi T-=d! T+S=aSNIHLG=Tadl BES 

@-=1WiT-=Wi T+GS=aSNSHLV=TWdI OZS 

9=MS?9=S BIS 

LdWaLLY YOIHD Wad BOS 

O@Z¥OLOD BSP 

OSTINAHLy»Ny=SaZal OF 

OTSNAHL«»A.=$dZal BEd 

$aZL9D 87% 

w>€MUWW I TIWHS<,LNIYd OTP 

udu‘ LbeZ-SZ‘PELOTd? Ta’ Le2-SZ‘EELOTd OOF 
OTPOLOD? yw Hu Le2-SZ‘PELOTd? T/beZ-SZ‘EELOIINSHLL=TSaI B6E 
Ou beZ-SZ/ZELOTd 2 10/LeZ-SZ‘TELOId BBE 
O6EOLOD? y Fy‘ LeZ-SZ/ZELOTd? T’beZ-SZ‘TELOIINSHLL=TGaI OLE 
wOe/ LeZ-SZ‘4BELOTA2 TD LyZ-SZ' 671d B9E 

BLEOLOD? utu’be2-SZ ‘BELOIT? 1 bet-SZ‘67LOIINAHLL=1TOaI OSE 
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based on the board game ‘Super 


Mastermind’. 
You will notice that the player 


does not pit his/her wits against 


was fed up with seeing ‘Oric 
Wins’ etc. etc. in programs and 


because I thought the game 
would be more enjoyable if it 


decided to do this both because I 
had a personal touch. 


‘CODE MASTER DELUXE’, 
‘ORIC’ but against ‘STEVE’. I 


48K ORIC 1. As you will see 


is a game 


4IUMQ) IUOE 
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66@ IFC1=BTHENSW=SW+1:B2-1:Cl=-2 
678 IFC1L=DTHENSW=SW+1:D=-1:Cl=-2 
688 IFC1=ETHENSW=SW+1: 
698 IFD1L=ATHENSW=SW+1:A=-1:D1l=-2 
708 IFD1=BTHENSW=SW+1: 
716 IFD1=CTHENSW=SW+1: 
726 IFD1=ETHENSW=SW+1: 
730 IFE1=ATHENSW=SW+1: 
74@ IFE1L=BTHENSW=SWt1: 
75@ IFEl1=CTHENSW=SW+1: 
760 IFEL=DTHENSW=SW+1:D=-1:E1=-2 
806 REM PLOT MARKS 

810 x=19 

820 IFSB=@THEN876 

838 FORN=1TOSB 

840 PLOTX,25-2*T,""" 

850 X=X+1 

860 NEXTN 

878 IFSW=8THEN9I20 

886 FORN=1TOSW 

899 PLOTX,25-2*T,"3%" 

900 X=X+1 

910 NEXTN 

920 IFSB=5THEN3000 ‘END OF GAME 
930 T=T+1 

949 IFT>1@THEN3@69 ‘END OF GAME 
958 GOTO158 

1060 REM CLEAR TEXT 
1018 PRINTCHRS (17); 
1628 FORM=1T020 

1630 PRINT" 

1040 NEXTM 

1058 POKE616,6:PRINT 
1060 PRINTCHRS (17); 
1070 IFY9=1THENPRINT"Attempt no.";T 

1686 Y9=0 

1998 RETURN 

2008 REM INCREMENT SCORE 

2016 POKE616,6:PRINT 

2020 PRINTCHRS (17); 

2836 GOSUB1666 

2048 PRINTCHRS (17); 

2166 IFTS="RESIGN"THENS1=0:S2=15:BS=@:V=0:GOTO2300 
2110 IFT>1@THENS1=6:S2=12:BS=6:V=0 

2120 IFT=10THENS1=1:S2=10:BS=6:V=0 

2130 IFT=9THENS1=2:S2=9:BS=6:V=G 

2148 IFT=8THENS1=3:S2=8:BS=0:V=0 

2150 IFT=7THENS1=4:S2=7:BS=6:V=0 

2168 IFT=6THENS1=5:S2=6:BS=1:V=1 

2170 IFT=STHENS1=6:S2=5:BS=2:V=1 

2180 IFT=4THENS1=7:S2=4:BS=3:V=1 

2196 IFT=3THENS1=8:S2=3:BS=5 
2200 IFT=2THENS1=9:S2=2:BS=8: 
2218 IFT=1THENS1=190:S2=0:BS=15 
2300 PRINT" SCORE" 

2316 PRINT" SSS$SS": PRINT 
2328 PRINT“The score for":PRINT"that game was:" 

2330 PLOT (12; "sees waasrasase aoa” 

2348 PLOT1,12,NAS:PLOT1,14+V,"STEVE....eeeeeee” 

2358 S1S=STRS$ (S1) :S2S=STR$ (S2) : BSS=STRS (BS) 

2366 PLOT17-LEN(S1S) ,12,S1$ 

2370 PLOT17-LEN(S1$) ,12,1 

2388 PLOT17-LEN(S2S) ,14+V,S2S 

2398 PLOT17-LEN(S2S) ,14+V,1 

2498 IFTS="RESIGN"THEN25006 

2418 IFT<7THENPLOT1,13,"Plus bonus of .." :PLOT17-LEN (BSS$) ,13,BS$ 
2420 IFT<7THENPLOT17-LEN(BSS) ,13,1 

2508 SP=SP+S1+BS:SS=SS+S2 

2518 SPS=STRS (SP) :SSS=STRS (SS) 

2528 WAIT1¢0 

2538 PLOT15-LEN{SPS) ,2,SPS 

254@ PLOT15-LEN (SPS) ,2,1 

255@ PLOT15-LEN (SSS) ,3,SSS 

2568 PLOT15-LEN(SSS) ,3,1 

2578 WAIT5@G 


=1] 


2996 
3688 
3616 
3828 
3036 
3049 
3058 
3068 
3878 
3689 
3696 
3100 
3116 
3126 
3136 
3146 
3158 
3168 
3176 
3268 
3216 
3226 
3238 
3248 
3250 
3266 
3276 
3280 
3296 
3306 
33198 
3326 
3338 
3348 
3350 
3360 
3365 
3376 


RETURN 

REM END OF GAME 

IFSB=5 THENGOSUB3190 

POKE616,6: PRINT 

GOSUB1668 

PRINTCHRS (17); 

IFSB<>STHENSOUND1,1566,0: PLAY1,9,1,2099 
PRINT">> GAME OVER <<":PRINT: PRINT 

WAIT30@: IFSB=5THEN3200 

IFTS="RESIGN" THEN 3688 

IFT>16THEN3403 

PLAY7,@,1,1 

FORN#=1T05 
MUSIC1,4,1,9:MUSIC2,3,5,9:MUSIC3,3,8,9 

WAIT6 

MUSIC1,1,1,8:MUSIC2,1,1,@:MUSIC3,1,1,90 

WAIT3 

NEXTN 

RETURN 

REM PLAYER CRACKED CODE 

IFT>4THENPRINT"Well done" 

IFT=4THENPRINT" EXCELLENT!" 

IFT=3 THENPRINT" TREMENDOUS !!" 

IFT=2THENPRINT" INCREDIBLE! !" 
IFT=1THENPRINT"IT'S IMPOSSIBLE!!" 

WAIT20@: PRINT 

IFT=1@THENPRINT"You just made it!" 
IFT<1@ANDT>6THENPRINT"You did it in ";T 
IFT<7ANDT>2THENPRINT"You did it ":PRINT"in only ";T 
IFT=2THENPRINT"YOU DID IT IN TWO" 
IFT=1THENPRINT"YOU DID IT IN ONE” 

WAIT26@0: PRINT 

IFT#2THENPRINT"YOU MUST BE A":PRINT"GENIUS,";NAS 
IFT=1THENPRINT"YOU MUST BE": PRINT"PSYCHIC,";NAS 
WAIT20@: PRINT: PRINT"THE HIDDEN CODE":PRINT"IS,OF COURSE....." 
GOSUB38698 

PRINT 


IFZ<7ANDT<6THENPRINT"Why not try":PRINT"skill level ";z+1;",": 


PRINTNAS 


3375 
3386 
3396 
3409 
3418 
34208 
3438 
3448 
3458 
3460 
3465 
3527 
3486 
3498 
3495 
35698 
3518 
3688 
3616 
3626 
3648 
3659 
3660 
3678 
3686 
3698 
3788 
3716 
3728 
3738 
3866 
3818 
3815 
3828 
3836 
3846 


IFZ<7ANDT<6THENWAIT20@ 

GOSUB200@6 

GOT04006 

REM PLAYER DID NOT CRACK CODE 

PRINT“Bad luck":PRINT 

PRINT" THE HIDDEN" 

PRINT*CODE FS.c.c:c-cc000" 

GOSUB3886 

IFZ=1THEN349@ 

PRINT: PRINT"Why not try":PRINT"skill level ";Z-1;",":PRINTNAS 
WAIT 260 

GOSUB2660 

GOTO 4800 

PRINT: PRINT"Why not try":PRINT"again,";NAS 
WAIT200 

GOSUB2980 

GOTO40GG 

REM PLAYER RESIGNED 

PRINT"THE HIDDEN" 

PRINT"CODE |ISis « siéiaiacere™ 

GOSUB3869 

IFZ=1THEN3700 

PRINT: PRINT"Why not try":PRINT"skill level ";Z-1;",":PRINTNAS 
WAIT 268 

GOSUB268@8 

GOTO 4880 

PRINT: PRINT"Why not try":PRINT"again,";NAS 
WAIT 206 

GOSUB299@ 

GOTO 4888 

REM DISPLAY HIDDEN CODE 
A=AF:B=BF:C=CF:D=DF:E=EF 

WAIT2@6 

PLOT25,2,23:PLOT25,3," " 
IFA=7THENPLOT 25, 2,1: PLOT26,2,"#":GOTO3850 
PLOT25,2,A:PLOT26,2,"@" 


SUI}SI] ywOXNjIq ADJSEW dpa’), 


oTBMATOS 


4IUMQ IUQ. OL 


3858 
3868 
3876 
3886 
3896 
3968 
3916 
3926 
3938 
3946 
3998 
4066 
40106 
4620 
4636 
4040 
4050 
4060 
4876 
4686 
4090 
4166 
4116 
4126 
4130 
4146 
4150 


IFB=7THENPLOT27,2,1:PLOT28,2,"#":GOTO3878 
PLOT27,2,B:PLOT28,2,"@" 
IFC=7THENPLOT29,2,1:PLOT30,2," 
PLOT29,2,C:PLOT36,2,"@" 
IFD=7THENPLOT31,2,1:PLOT32,2,"#":GOTO3919 
PLOT31,2,D:PLOT32,2,"@" 

IFE=7THENPLOT 33,2,1:PLOT34,2,"#":GOTO3936 
PLOT33,2,E:PLOT34,2,"@" 

PING 

WAIT20@ 

RETURN 

REM PROMPT FOR ANOTHER GAME 

POKE616,6: PRINT 

PRINTCHRS (17); 

GOSUB1660 

PRINT"IF YOU WISH TO:" 

PRINT: PRINT: PRINT"1.Continue on" 

PRINT" skill level ";z 

PRINT"> PRESS 'y'" 

PRINT: PRINT"2.Change skill" 

PRINT” level" 

PRINT"> PRESS 'C'" 

PRINT: PRINT"3.End the game” 

PRINT"> PRESS 'E'" 

GETX9$ 

IFX9S="Y"THENPRINTCHRS (17) ; :SB=6:GOTO5@ 

IFX9$="C" THENSB=6 :SP=@ :SS=@ : SPS=STRS (SP) :SSS=STRS (SS) :GOSUB438 


":GOTO3898 


0:GOTOS6 


4168 
4176 
4300 
43190 
4320 
4336 
4346 
4350 
4360 
4378 
4386 
4398 
4586 
45108 
4526 
4530 
4548 
4558 
4560 
4570 
4586 
4596 
4600 
4610 
4626 
4636 
4648 
5860 
5618 
5628 
5636 
5046 
5956 
5866 
58708 
5880 
5698 
5168 
5118 
5120 
5138 
5146 
5158 
5168 
5178 
5188 
5196 


IFX9S="E"THEN450@ 

GOT04136 

REM CHANGE SKILL LEVEL 

IF PEEK (616) >22THENPOKE616,5: PRINT: GOSUB1O0B 
PRINT 

PRINT"ENTER NEW SKILL" 

PRINT"LEVEL "; :INPUTZ 

IFZ>7THENPRINT"> Too big <":GOT04316 
Z$=*STRS(Z):IFLEN(Z$)>2THENPRINT"> No decimals <":GOTO431@ 
IFZ<1THENPRINT"> Too small <":GOTO4310 
PRINTCHRS (17); 

RETURN 

REM GOODBYE PLAYER 

POKE616,6: PRINT: GOSUB1609 

PRINTCHRS (17); 

PRINT: PRINT: PRINT: PRINT" SSSSSSSSSS$SSSSS$" 
PRINT">>> GOODBYE <<<" 

PRINT"SSSSSSSSSSSSSSS" 

WAIT 206 

FORP=#BB7FTO#BB7F+40 

POKEP, 32 

NEXTP 

PRINTCHRS (2@) : PRINTCHRS (20) 

CLS 

CLEAR 

PRINTCHRS (17); 

END 

REM TITLE PAGE 

PRINTCHRS (17) :CLS 

INK7: PAPER] 

FORN®1T0O168 

X4=INT(RND (1) *36)+1 

Y4=INT (RND (1) *26) 

C4=INT(RND (1) *8) 

PLOTX4-1,¥4,C4:PLOTX4,Y4,"@" 

NEXTN 

PLOTG,1,10: PLOTG,3,16: PLOTG,4,10: PLOTG,5,10 
PLOT1,1,"SSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSS" 
PLOT1,2," = 
PLOT1,3,"< << < >>>> * 
PLOT1,4,"< < < < >> p> 2 
PLOT1,5, "SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS" 
HS$="CODE MASTER DELUXE" 

FORN=1T020 

PLOT8+N,3,MIDS (HS,N,1) 

PLOT8+N,4,MIDS (HS,N,1) 

WAIT20 


52060 NEXTN 
5218 WAIT2¢ 
5238 PLOT10,6," 4 
5248 PLOT16,7," e 


5258 PLOT9,8,7 
5268 PLOT10,8,"SSSSSSSSSSSSSSSSS$" 
5278 PLOT9,7,7 

5280 PLOT10,7,CHRS (96) 

5333 PLOT12,7,"Stephen J Mellin" 
5309 WAIT20@ 

5318 PRINTCHRS (17); 

5998 RETURN 

6388 REM INSTRUCTIONS 

6818 CLS: INK7:PAPER4:PRINT 

6028 PRINTCHRS (4) ;CHRS (27)"J 

603G PRINT: PRINTCHRS (4) 

6046 PRINT"DO YOU WANT INSTRUCTIONS?" 

6056 PRINT: PRINT"IF YOU DO PRESS ‘Y',IF NOT PRESS 'N'" 
6068 GETX8$: IFX8S="Y"THENPRINTCHRS (17) ; :GOTO6090 

6676 IFX8S="N"THENPRINTCHRS (17) ; :GOTO6628 

6688 GOTO6G6G 

6098 CLS:PRINT 

6180 PRINTCHRS (4) ;CHRS (27) "J CODE MASTER DELUXE" 
6185 PRINT: PRINTCHRS (4) 

6119 PRINT"Hello,this is Steve,your opponent." 

6115 PRINT:PRINT"The idea of this game is to break" 

6120 PRINT"the hidden code which I will set" 

6125 PRINT"at the beginning of each game." 

6138 PRINT:PRINT"The code itself is a row of coloured" 
6135 PRINT"markers hidden behind a shield at the" 

6148 PRINT"top of the board." 

6145 PRINT"Your task is to try and duplicate the" 

6150 PRINT"exact colours and positions of the" 

6155 PRINT"hidden code." 

6168 PRINT"To do this place a row of coloured" 

6165 PRINT"markers on the board.I will then" 

6178 PRINT" indicate the correctness of your" 

6175 PRINT"attempt.Use this information when” 

6188 PRINT"considering your next attempt.” 

6185 PRINT:PRINT"PRESS SPACE BAR FOR MORE INSTRUCTIONS" 
6198 GETX7S:IFX7$<>" "THEN6190 
6195 CLS:PRINT 

6288 PRINTCHRS (4) ;CHRS (27) "J 
6295 PRINT: PRINTCHRS (4) 

6219 PRINT"You should enter your attempt as a" 
6215 PRINT"row of five numbers e.g.01536." 

6228 PRINT"Each number corresponds to a colour," 
6225 PRINT"The colours in use will be displayed" 
6230 PRINT"at the top of the screen with their” 
6235 PRINT"corresponding numbers.The number of" 
6248 PRINT"colours in use depends on which skill" 
6245 PRINT"level (1-7) you select;the higher the" 
6258 PRINT"skill level,the greater the number of" 
6255 PRINT"colours in use.” 

6268 PRINT"Don't forget to press 'RETURN' to" 
6265 PRINT"register your attempt.” 

6270 PRINT“When you have entered your attempt" 
6275 PRINT"I will ask you whether you want it to" 
6288 PRINT"be marked.If you do,press 'Y'.If you" 
6285 PRINT"wish to change your attempt,simply"” 
6299 PRINT"press 'N' and enter your preferred" 
6295 PRINT"combination for that attempt." 

6360 PRINT"You have a maximum of ten attempts to” 
63@5 PRINT"break the hidden code.If at any time" 
6318 PRINT"you wish to resign,enter 'RESIGN'"™ 
6315 PRINT“as your next attempt." 

6328 PRINT"PRESS SPACE BAR FOR MORE INSTRUCTIONS"; 
6325 GETX7§:IFX7$<>" "THEN6325 
6338 CLS: PRINT 

6335 PRINTCHRS (4) ;CHRS$ (27) "J 
634@ PRINT: PRINTCHRS (4) 

6345 PRINT"The colours and corresponding numbers" 
635@ PRINT"are as follows:" 

6355 PRINT:PRINT"@ = Black (Bk) " 

636@ PRINT"1 = Red (Rd)" 


CODE MASTER DELUXE" 


CODE MASTER DELUXE" 


CODE MASTER DELUXE" 
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6365 PRINT"2 = Green (Gn)" 
6378 PRINT"3 = Yellow (Ye)" 
6375 PRINT"4 = Blue (Bl)" 
6386 PRINT"S5 = Magenta (Ma)" 
6385 PRINT"6 = Cyan (Cn) " 


6398 PRINT"7 = Empty hole (Em)" 

6395 PRINT: PRINT"Note that if you use skill level 7" 
6490 PRINT"the hidden code may contain empty" 

6495 PRINT"holes.” 

6419 PRINT"The higher the skill level,the greater"; 

6415 PRINT*the number of colours in use." 

6420 PRINT"The greater the number of colours in" 

6425 PRINT"use,the greater the number of possible"; 

6438 PRINT"combinations in the hidden code." 

6435 PRINT: PRINT"PRESS SPACE BAR FOR MORE INSTRUCTIONS"; 
6449 GETX7$:IFX7NEXT<>" “THEN6446 
6445 CLS: PRINT 

6458 PRINTCHRS (4) ;CHRS$ (27) "J 

6455 PRINT: PRINTCHRS (4) 

646@ PRINT"I will mark your attempt as follows:" 
6465 PRINT:PRINT"One '*' for each marker which is" 


CODE MASTER DELUXE" 


6478 PRINT" exactly the same colour and" 

6475 PRINT" in exactly the same place as" 

6480 PRINT" one of the code markers" 

6485 PRINT" behind the shield." 

6490 PRINT:PRINT"One ‘'%' for each marker which is the" 
6495 PRINT" same colour as one of the" 

6500 PRINT" code markers but in the wrong" 

6505 PRINT" position." 


6516 PRINT:PRINT:PRINT"PRESS SPACE BAR FOR MORE INSTRUCTIONS” 
6515 GETX7$:IFX7$<>"_ "THEN6515 

6528 CLS: PRINT 

6525 PRINTCHRS (4) ;CHRS (27) "J CODE MASTER DELUXE" 
6530 PRINT: PRINTCHRS (4) 

6535 PRINT"Scoring is as follows 
6546 PRINT:PRINT"Attempts Your Your My 


6545 PRINT"Taken Score Bonus’ Score" 
6558 PRINT:PRINT" 1 16 15 o" 
6555 PRINT" 2 g 8 2" 
6566 PRINT" 3 8 5 as 
6565 PRINT" 4 2 3 4" 
6576 PRINT" 5 6 2 5* 
6575 PRINT" 6 5 1 6" 
6586 PRINT" 7 4 - ya 
6585 PRINT" 8 3 - 8" 
6596 PRINT" 9 2 - 9" 
6595 PRINT” 16 1 - 16" 
.6668 PRINT"Over 190 6 - 12" 
6605 PRINT"Resigned @ - 15° 


6606 PRINT:PRINT"N.B.If you change skill level between" 
6607 PRINT"games the scores will be reset to zero"; 

661@ PRINT: PRINT"PRESS SPACE BAR TO CONTINUE" 

6615 GETX7$:IFX7S<>" "THEN6615 

6628 CLS:PRINT: PRINTCHRS (17); 

6625 PRINTCHRS (4) ;CHRS$ (27) "J CODE MASTER DELUXE" 
6638 PRINT: PRINTCHRS (4) 

6648 IFPEEK(616)>24THENCLS :GOSUB6806 

6645 PRINT:PRINT"PLEASE ENTER YOUR NAME" 

66506 PRINT“ (UP TO 9 LETTERS) "; : INPUTNAS 

6655 IFLEN(NAS) >9THENPRINT"> Too long <":GOTO0664G 

6660 IFPEEK(616)>24THENCLS:GOSUB680G 

6665 PRINT:PRINT"ENTER SKILL LEVEL (1 TO 7) ";:INPUTZ 
6676 IFZ>7THENPRINT"> Too big <":GOTO6669 

6675 ZS$=STRS(Z):IFLEN(Z$)>2THENPRINT"> No decimal places please <": 
GOTO6660 

6680 IFZ<1THENPRINT"> Too small <":GOTO6666 

6698 RETURN 

6808 CLS: PRINT 

6810 PRINTCHRS (4) ;CHRS$ (27) "J CODE MASTER DELUXE" 
682@ PRINT: PRINTCHRS (4) 

683@ PRINTCHRS (17); 

6848 RETURN 

7088 REM DRAW BOARD 

7616 CLS: INK1:PAPER@ 

7628 M=1 


7036 
7048 
7656 
7966 
78676 
7688 
7096 
7186 
7118 
7129 
7138 
7140 
7156 
7160 
7178 
7186 
7196 
7268 
7216 
7226 
7238 
7240 
7258 
7260 
7276 
7288 
7298 
7308 
7310 
7328 
7330 
7340 
7358 
7368 
7378 
7386 
7390 
7408 
7418 
7426 
7430 
7440 
7450 
7469 
7478 
7486 
7498 
7998 
8000 
8610 
8820 
8836 
8049 
8050 
8060 
8676 
8080 
8696 
8100 
8110 
8120 
8136 
8146 
8150 
8160 
8178 
8186 
8196 
8200 
8216 
8220 
8238 
8240 
8256 
8990 


REPEAT 
PLOT36,M,16 

PLOT18,M,23 

M=M+1 

UNTILM=26 

PLOT25,2,16: PLOT35,2,23 
PLOT25,3,16: PLOT35,3,23 
PLOT27,2,"HIDDEN" 
PLOT28,3,"CODE" 
FORM=2T025 

PLOT24,M,"|" 

NEXTM 


PLOT25,1,"SSSSSSSS$$":M=4 


REPEAT 
FORN=19T034 
PLOTN,M,"$" 

NEXTN 

M=M+2 

UNTILM>25 

M=5 

REPEAT 
FORN=26TO34STEP2 
PLOTN,M,"#" 

NEXTN 

M=M+2 

UNTILM> 23 
PLOT26,25,"1 2 3 4 5" 
PLOT19,25,"MARKS" 


CN$="@=Bk 1=Rd 22Gn 3=Ye 4=Bl 5=Ma 6=Cn 7=Em" 


FORP=#BB7FTO#BB7F+40 
POKEP, 32 

NEXTP 

FORP#1T04+5*Z 


POKE#BB86+P,ASC (MIDS (CNS,P,1)) 


NEXTP 
FORN=1T04 
PLOT16,N,16:PLOT1,N,19 
NEXTN 
PLOT2,1,"SS$SSSSSSSSSS" 
PLOT2,4,"SSSSSSSSSSSSS" 
BLOT2, 2p "imsisteiswisie os” 
PLOT2,2,NAS 
PLOT2,3,"STEVE......" 
PLOT15-LEN (SP$) ,2,SP$ 
PLOT15-LEN (SPS) ,2,1 
PLOT15-LEN (SS$) ,3,SS$ 
PLOT15-LEN (SS$) ,3,,1 
RETURN 

REM DEFINE CHARACTERS 
FORP=0T07 

READP1 

POKE46592+P, Pl 

NEXTP 


DATA12,30,63,63,63,63,30,12 


FORP=@TO7 
READP2 
POKE46360+P,P2 
NEXTP 


DATA12,18,33,33,33,33,18,12 


FORP=6T07 
READP3 

POKE46368+P,P3 

NEXTP 
DATAG,@,0,63,0,6,8,0 
FORP=@T07 

READP4 

POKE46376+P,P4 

NEXT 
DATAG,@,12,18,18,12,0,0 
FORP=9T07 

READP5 

POKE46832+P,P5 

NEXTP 
DATAG,@,12,30,30,12,0,0 
RETURN 
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Features 


Oric Copy 


The enclosed program is a sim- 
ple text screen dump for the 48K 
Oric using the “!” key facility for 
extension commands to provide 
for a copy command. The pro- 
gram was written using a Tandy 
CGP-115 printer/plotter, but as 
this is basically the Sharp 4-col- 
our printer/plotter in disguise, 
there is no reason why it should 
not work for the other badge 
engineered printers like Oric’s 
own MCP 40. Owners of other 
printers should however, check 
and change if necessary, loca- 
tions Hx044A and Hx044F to 
include control codes which 
govern Carriage Return (CHR$ 
13) and Line Feed (CHR$ 10) 
respectively for their own print- 
ers. 


The way the program works is 
simplicity itself. When “!” is 
entered, the first text screen 
address is loaded into locations 
Hx0408 and Hx0409. This forms 
the base address, and its con- 
tents are loaded into the A 
register. This is then printed by 
making a Call to HxF57B which 
is the Print-the-character-in-A 
routine in ROM. 16K owners 
should therefore change’ loca- 
tion Hx0466 to Hx3B which is 
the MSB of the first address of 
the 16K text screen. The 
LPRINT routine in ROM is the 
same for both models. The 
Index register Y is incremented, 
and the offset added to the base 
address and the print process 
repeated. When 40 characters 


have been printed (i.e. 1 line), a 
Carriage Return and Line Feed 
are issued to the printer and the 
X register decremented. This is 
initialised at 27, which is the 
number of lines on the screen. 
The base address is then 
incremented by 40; (start of the 
next line), and the whole process 
repeated until the X register is 
decremented to zero. The loca- 
tions storing values for the X and 
Y registers are initialised and a 
Return made to BASIC. 


Control codes and _ attributes 
affecting the screen pose no 
problem as they do not affect the 
printer. The ones that do are 
primarily cursor controls and as 
the Keyboard scan is turned off 
anyway to prevent the interrupts 
causing random printing of 
CHR$ 126 and CHR$ 127, the 
issue does not even arise. The 
exception is CTRL-D which 
when used with the ESC cha- 
racter gives double-height print- 
ing. As the double-height cha- 
racters are the same characters 
stacked on top of each other, the 
printer will merely print them 
twice. 

The program is stored in loca- 
tions Hx0400 to Hx046A; and 
despite what the Oric manual 
says, I have found that Page 4 is 
in fact quite safe under any 
condition even after NEW and 
Reset. It is initially stored in 
BASIC in DATA statements as 
shown in the listing, and is 
POKEd into place by _ the 


Loader. The DATA statements 
should be entered exactly as 
shown, but for clarity, I have 
included an assembler listing 
with _line/line commentary. 
RUN the BASIC program when 
it has been entered, and the “!” 
can then be used to copy the 
screen. It will only fail if the text 
screen is moved, for example 
when RELEASE is used or in 
the HIRES mode. 


1 REM Extension command for 
COPY using “!”. D. Yan 1983 
10 DATAQ01IBEAEAEAA000 
B900008C0004207BF5 
AC0004C8C028D0 
EF204904 AE0104 
CA8E0104 F015 
20 DATA18AD080469288D 
080490D6AD09041869018D 
09044C0504204904A9008D 
0004 4A91B8D0104 
30 DATA60A90D207BF5A90 
A207BF56020 
CAE62005042004 
E860EAEA 
40 DATAAYA88D0804A9BB8 
D09044C5404,Z2 
99 REM BASIC Loader 
100 :A=#400:READD$ 
110 :REPEAT:FORX= 
ITOLEN(D$)STEP2 
120 :D=VAL(“#"+ 
MID$(D$,X,2)) 
130 :POKEA,D:A=A+1: 
NEXT 
140 :READD$:UNTILD$= 
“gy” 
149 REM Enable “!” 
150 :DOKE#2F5,#460 
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Features 
Oric Copy 


Assembler listing. ORIC COPY 


HX 
LOC MNEMONIC 


YSTORE 0400 Character count store. 
XSTORE 0401 Line count store. 
0402 
0403 
0404 
CCOUNT 0405 Hx00 Initialise character count. 
FBYTE 0407 SOR,Y Character at base address SOR offset 
SOR(LSB) 0408 Y into A register. 
SOR(MSB) 0409 
040A = It YSTORE Put Y register in YSTORE. 
040D LPRINT LPRINT character in A. 
0410 YSTORE Retrieve character count. 
0413 Next character. 
0414 Hx28 40 characters? (1 line). 
0416 FBYTE Not end of line, get next byte. 
0418 - . EOL End of line. 
041B XSTORE Get line count. 
O41E 2 1 line finished. 
O41F S XSTORE Put back updated value. 
0422 E A END 27 lines done? 
0424 “LC No, prepare for next line. 
0425 SOR(LSB) Get LSB of base address. 
0428 > Hx28 Update base address to next line. 
042A . SOR(LSB) Put back updated value. 
042D CCOUNT No carry, so back to CCOUNT. 
042F SOR(MSB) Carry set, so get MSB. 
0432 Prepare for update. 
0433 Hx01 Add carry bit to MSB. 
0435 SOR(MSB) Put back updated value. 
0438 B CCOUNT All values updated, back to CCOUNT 
043B EOL Reset print head to margin. 
043E Hx00 Reinitialise YSTORE. 
0440 YSTORE 
0443 Hx1B Reinitialise XSTORE. 
0445 XSTORE ; 
0448 End of END routine, go to 
STARTEND. 
0449 HxOD Prepare to send Carriage Return. 
044B 5 LPRINT Send C/R to printer. 
044E HxOA Prepare to send Line Feed. 
0450 LPRINT Send L/F to printer. 
0453 End of EOL routine. 
STARTB 0454 . HxE6CA Turn off keyboard scan. 
0457 CCOUNT Perform program. 
STARTEND 045A S HxE804 Turn on keyboard scan. 
045D Return to BASIC. 
045E 
045F 
STARTA 0460 HxA8 LSB first byte of address of Text 
screen. 
0462 : SOR(LSB) Value into SOR. 
0465 HxBB MSB first byte of address of Text 
screen. 
0467 SOR(MSB) Value into SOR. 
046A 3 STARTB Go to STARTB. 
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Software 


Simple Simon 


Rules 


The game is a test of memory in 
which the computer displays a 
random sequence of coloured 
blocks in the four corners of the 
screen (accompanied by an 
appropriate sound). 


Your task is to reproduce the 
sequence using the keys:— 


R *? 
Cc B 


There is also a time limit placed 
on your response and this may 
be adjusted at the start of the 
game. 


Explanation of 
the Program 


line 1:- selects text mode and 
releases the hires memory — so 
that it will work in 16K 

line 4:- sets the score (SC) to 
zero 

line 50:- selects subroutine for 
the titles 

lines 55—56:- move the cursor to 
correct position 

lines 57-58 select colours used 
lines 70-76 waits for you to enter 
1 or 2 in response to the diffi- 
culty and then choose X% 

to alter the difficulty adjust line 


By S. W. Lucas 


76 —the smaller the value of 
X% the harder the game will be! 
lines 80—86 set the messages 
lines 90-1000 contain the main 
control of the program:- this 
consists of a REPEAT UNTIL 
loop lines 110 and 340 


the condition causing it to jump 
out of the loop is when AC<>0 
and this is set to 1 when an 
incorrect response or a slow 
response occurs 

lines 5000—-5999:- subroutine to 
select a random letter which is 
added to the end of B$— the 
sequence 

lines 6000-6600:-subroutine to 
display the random sequence 
lines 7000—7200:- subroutine to 
display your attempt 

lines 10000—-10100:- subroutine 


for the red box 

lines 20000—20100:- subroutine 
for green box 

lines 30000—30100:- subroutine 
for yellow box 

lines 40000—402100:- subroutine 
for blue box 


The above 4 subroutines create 
the boxes in TEXT made by 
setting the attributes on each 
line to the appropriate colour 
and then later in the line setting 
them back to white:- the back- 
ground colour chosen by 
PAPER in line 57 


lines 50000-50340 contain the 
subroutine for the titles and lines 
50100-50110 select whether the 
instructions are displayed (lines 
50120 onwards). 
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Lt 
4s 
5 R 
10 
15 


96 

100 
EQU 
110 
200 
205 
250 
300 
306 
307 
310 
311 
320 
AS 

325 
330 
340 
399 
400 
410 
415 
420 
421 
NT: 


EXT:GRAB 

c=0 

EM SC#SCORE 

REM THIS IS.A VERSION OF THE FAMILIAR GAME OF “SIMON” 

DIM M$(6):REM MESSAGES 

REM <C >1983 S.W. LUCAS 

REM FOR THE ORIC 1 48K :REMOVE REM STATEMENTS FOR THE 16K VERSIO 


TEXT 

GOSUB50000:REM SUBROUTINE FOR TITLES AND INSTRUCTIONS 
PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 
PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 

PAPER 7:REM SET BACKGROUND TO WHITE 

INK 1:REM SET FOREGROUND TO RED 
PLOT1,10,18:PLOT2,10,"ENTER THE DIFFICULTY LEVEL 1 OR 2” 
PRINTSPC(10); 

REPEAT:REM ROUTINE TO CHECK FOR THE PRESSING OF 1 OR 2 
GETZ$ 

UNTIL (Z$="1" OR Z2$="2") 

LET Z*VAL(Z$) 

IFZ=1 THEN X%=40 ELSE X%=20 

REM MESSAGES 

MS$(1)="“WATCH” 

M$(2)="NOW REPEAT” 

M$(3)="CORRECT"” 

M$(4)="WRONG !” 

M$(5)="THE CORRECT SEQUENCE WAS:-” 

M$(6)="TOO SLOW !" 

REM THE FOLLOWING SECTION IS THE MAIN CONTROL SECTION OF THE GAM 


SC=0 
AC=0 - 

BS="":REM BS HOLDS THE RANDOM CHOICF OF LETTERS TO CREATE THE S$ 
ENCE 

REPEAT 

GOSUB5000:REM ADD A LETTER TO THE SEQUENCE 

REM NOW PRINT WHETHER RIGHT, WRONG OR RAN OUT OF TIME 

GOSUB6000:REM ROUTINE TO DISPLAY THE SEQUENCE 

GOSUB7000:REM SUBROUTINE FOR YOUR TRY 

IF TI > X%*4 THENCLS:PLOT15,13,M$(6):AC™1:GOTO450 

REM TOO SLOW 

IFAAS < > MID$(BS$,ZX,1)THENCLS: PLOT15,13,M$(4):AC™1:GOT0400 

REM GOTO IT WRONG 

IFZX*LEN(B$)THENCLS: PLOT15,13,M$(3)ELSECLS:PLOT15,13, "PROGRAM H 
CRASHED! 

REM GOT IT RIGHT NOW INCREMENT THE SCORE 

SC=SCt1 

UNTILAC< >0 

END 

WAIT50:PLOT10,13,M$(5) 

WAIT50 

GOSUB6000 

WAITS0:CLS:PLOT15,10,"YOU SCORED “ 

PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRI 
PRINT 


422 
425 
426 
430 
450 
451 
452 
455 
456 
NT:P 
457 
458 
459 
460 
470 
480 
1000 
4999 
5000 
5005 
5010 
5020 
5030 
5040 
5050 
5060 
5999 
6000 
6010 
6020 
6025 
6030 
6035 
6040 
6050 
“BT 
6060 
6070 
6080 
6500 
6600 
7000 
7010 
7015 
7020 
7035 
7040 
7045 
7050 
7051 
7055 
7060 
7061 


PRINT: PRINT: PRINTSPC(18);SC 
PRINT: PRINT: PRINT"PRESS <SPACE> FOR ANOTHER GAME” 
REPEAT :GETAS$:UNTILAS=" 
RUN 
UNTIL TI>X2*4 
WAIT5O 
CLS 
WAIT50:PLOT15,10, "YOU SCORED “ 
PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRI 
RINT 
PRINT: PRINT: PRINTSPC(18);SC 
PRINT: PRINT: PRINT"PRESS <SPACE> FOR ANOTHER GAME" 
REPEAT 
GETA$ 
UNTILAS=" 
RUN 
END 
REM SUBROUTINE TO SELECT A RANDOM LETTER AND ADD IT TO BS 
‘LET A=INT(RND(1)*4)+1 
Ase" 
IFA=1 THENAS="R" 
IFA=2 THENAS="Y" 
IFA=3 THEN AS="C" 
IF A=4 THEN AS="B" 
IFAS=""THENPRINT"PROGRAM HAS CRASHED":REM ERROR CHECK 
LET B$*BS$+A$:REM ADD THE RANDOM LETTER TO BS 
RETURN 
CLS:REM SUBROUTINE TO DISPLAY THE RANDOM SEQUENCE 
PLOT15,13,M$(1) 
WAITSO:REM SELECT VALUE TO SUIT YOU 
LETXY™LEN(B$):REM CHECKS LENGTH OF RANDOM SEQUENCE 
XX#1 
REPEAT 
C$=MID$(BS,XX,1) 
IFCS$="R" THENS=1ELSEIFC$= "Y “THENS=2ELSEIFCS="C"THENS=3ELSEIFCS= 
HENS=4 
LET S*S*10000:REM S=SUBROUTINF FOR COLOUR 
GOSUB S 
XX=XX+1 
UNTIL (XX>XY ) 
RETURN 
CLS:REM SUBROUTINE FOR YOUR TRY 
PLOT15,13,M$(2):WAIT50:REM SELECT WAIT VALUE TO SUIT YOU 
LET TI#0 
CLs 
ZX=0 
REPEAT 
LET TI=TI+1:AAS$=KEY$:REM TI IS A MEASURE OF THE TIME RESPONSE 
IF (AAS="R"ORAAS="Y "ORAAS="C"ORAAS="B") THEN7060 
IFTI>X%*4 THENGOTO7060:REM CHECK FOR TOO SLOW RESPONSE TIME 
GOTO7045 
ZX=*ZX4+1 
TFAAS®"R"THEN GOSUB10000 
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7062 
7063 
7064 
7070 
TO $s 
7200 
9998 
9999 
10000 
10005 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
10100 
19998 
19999 
20000 
20005 
20010 
20020 
20030 
20040 
20050 
20060 
20070 
20080 
20100 
29998 
29999 
30000 
30005 
30010 
30020 
30030 
30040 
30050 
30060 
30070 
30080 
30090 
39998 
39999 
40000 
40005 
40010 
40020 
40030 
40040 
40050 
40060 


IFAAS="Y "THEN GOSUB20000 
IFAAS="C“THENGOSUB 30000 
IFAAS="B" THEN GOSUB40000 


UNTIL (ZX=LEN(B$) OR AAS<>MIDS(BS$,ZX,1) OR TI>X%*4):REM ADJUST 
UIT 
RETURN 
REM SUBROUTINE TO DRAW THE RED BOX 
REM AND MAKE THE APPROPRIATE SOUND 

CLS 

FORY=2 TO 12 

PLOT5,Y,17:REM SET THE ATTRIBUTE TO RED 
PLOT16,Y,23:REM AND THEN SET IT BACK TO WHITE 
NEXT Y 

REM NOW MAKE THE NOTE 

MUSIC1,2,1,15 

REM X% = TIME DELAY ADJUSTED WHEN YOU CHOOSE THE SPEED 
WAIT X% 

SOUND1L,0,0:REM THEN TURN SOUND OFF 
RETURN 

REM SUBROUTINE FOR DRAWING THE GREEN BOX 
REM AND MAKING THE APPROPRIATE SOUND 

CLS 

FOR Y= 2 TO 12 

PLOT23,Y,18:REM SET ATTRIBUTES TO GREEN 
PLOT34,Y,23:REM AND BACK TO WHITE 

NEXT 

REM NOW FOR THE SOUND 

MUSIC1,3,1,15 

REM X%= TIME DELAT WHICH IS ADJUSTED AT THE START 
WALT X% 

SOUND1,0,0:REM TURN OFF SOUND CHANEL 
RETURN 

REM SUBROUTINE FOR DRAWING THE YELLOW BOX 
REM AND MAKING APPROPRIATE NOTE 

CLS 

FORY=14 TO 24 

PLOTS, Y,19:REM SET ATTRIBUTES TO YELLOW 
PLOT16,Y,23:REM AND BACK TO WHITE 

NEXT Y 

REM NOW FOR NOTE 

MUSIC1,4,1,15 

REM X%= DELAY 

WAIT X% 

SOUND1L,0,0:REM TURN SOUND OFF AGAIN 
RETURN 

REM BLUE BOX SUBROUTINE 

REM INCLUDING SOUND 

CLS 

FOR Y=14 TO 24 

PLOT23,¥,20:REM SET ATTRIBUTES= BLUE 
PLOT34,¥,23:REM AND BACK TO WHITE 

NEXT Y 

REM AND THEN THE SOUND 

MUSIC1,5,1,15 

REM X%=* TIME DELAY ADJUSTED AT THE START 


40070 
40080 
40100 
49999 
50000 
50005 
50010 
50020 
50030 
50040 
50050 
50060 
50070 
50080 
RINT, 
50085 
50090 
50095 
50100 
50105 
50107 
50110 
50120 
50130 
50140 
50150 
50160 
50170 
50180 
50190 
50200 
50210 
50220 
50230 
50240 
50250 
50260 
50270 
50280 
lose 
50290 
50300 
50310 
50320 
50340 


WAIT XZ 

SOUND 1,0,0:REM TURN OFF THE SOUND AGAIN 
RETURN 

REM SUBROUTINE FOR THE TITLES 

PAPERO: INK6 

CLS 


PLOT9,2,14:REM SET ATTRIBUTES FOR DOUBLE HEIGHT FLASHING 


PLOT10,2,3:REM SET ATTRIBUTES*#YELLOW 
PLOT11,2,"SIMPLE SIMON” 
PLOT9,1,14:REM SET TO DOUBLE HEIGHT FLASHING 
PLOT10,1,1:REM SET TO RED 
PLOT11,1,"SIMPLE SIMON” 
PLOT10,10,"<C> 1983 by S.W. Lucas" 


PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: P 


PRINT: PRINT: PRINT: PRINT: PRINT 

PRINT: PRINT:PRINT“Do you want instructions <Y>es <N>o 
REM NOW CHECK FOR PRESSING Y OR N KEYS 

REPEAT 

GET A$ 

UNTIL (AS="Y" OR AS="N") 


IF AS="N" THEN CLS:RETURN:REM DON'T PRINT INSTRUCTIONS 


PLOT1,5,3:REM SET TO YELLOW 

PLOT2,5,"“This is a game of memory. Watch the" 
PLOT1,6,3:REM YELLOW 

PLOT2,6,"“screen while coloured blocks flash in” 
PLOT1,7,3:REM YELLOW 

PLOT2,7,"“a random sequence in the 4 corners of” 
PLOT1,8,3:REM YELLOW 

PLOT2,8,"“the screen.” 

PLOT1,15,5:REM MAGENTA 

PLOT2,15,"You have to reproduce the sequence” 
PLOT1,16,5:REM MAGENTA 

PLOT2,16, "USING THE KEYS:” 

PLOT1,18,7:REM WHITE 


PLOT2,18,” R Y i 
PLOT1,20,7:REM WHITE 
PLOT2, 20," c OB - 


a". 
ne 


PRINT: PRINT: PRINT: PRINT: PRINT Don't take too long or you will 


te 
PRINT: PRINT"Press any key to continue" 
REM WAIT FOR ANY KEY TO -BE PRESSED 
GETAS 

CLS 

RETURN 
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1. Paper 0: Ink 1 

2 Rem OR oe 2 oe oe oe ok eo ok 
3. Rem *By M. D. Shaer* 
4 

5 


ake eo ake oie ok ke ok oe ake te ok 
. Rem 


3. ‘CLS 
10 Print:Print:Print 
20 Print MATHS! ! ” 


25 Print ” 666 ne =) 

30 Print:Print 

35 Print “This program is made to help you with” 
40 Print “your Maths. The computer will give you” 
50 Print “10 questions on each of the following” 

60 Print “subjects.” 

70 Print:Print 

85 Prints “Addition” 


90 Print 
100 Print “Subtraction” 
110 Print “ and” 


120 Print “Multiplication” 

150 Print:Print 

160 Print “Press any key to continue.” 
A$ = KEY$ 

200 A$ = Key: If A$ = ” “Then 200 
250 CLS 

300 Print:Print:Print 

350 Print “INSTRUCTIONS” 

400 Print “--------------------- Pe 

500 Print:Print 

510 Print “1. + = addition” 

520 Print “2. — = subtraction” 

530 Print “3. * = multiplication” 

600 Print:Print:Print:Print 

650 Print “now then what questions do you want” 
700 Print “to be given.” 

750 Print:Print 

800 Print “1 = addition” 

850 Print “2 = subtraction” 

900 Print “3 = multiplication” 

1000 Input A 

1100 If A = 1 then 2000 

1200 If A = 2 then 3000 

1300 If A = 3 then 4000 

1400 If A<>1 then 1000 

1500 If A<>2 then 1000 

1600 If A<>3 then 1000 

2000 For N = 1 to 10 

2050 CLS 

2100 Print:Print:Print: Print: Print: Print 
2150 A = int (Rnd (1) * 500) +1 

2200 B = int (Rnd (1) * 300) +1 

2250 Print A: Print “+”: Print B 

2300 Input Q 

2350 If Q=A+B then 2500 

2400 If QO<>A+B then 2700 

2500 Print “CORRECT!!” 

2525 M=M+1 

2550 Ping 

2575 Print “Press any key for the next sum”: A$=KEY$ 
2600 A$=KEY$: If A$=“ "then 2600 
2625 Next N: Goto 250 

2650 End 

2700 Print “WRONG THE ANSWER WAS!!!” 
2750 Print A+B 

2800 ZAP 

2850 Print “Press any key for the next sum”: A$=KEY$ 


Maths 
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5750 
5800 
5850 
6000 


6500 CLS:Print:Print:Print:Print “Your Total Was:”; M “Right” 


A$=KEY‘$: if A$=“”Then 2900 

Next N: Goto 250 

END 

for W=1 TO 10 

CLS 

Print:Print:Print:Print:Print:Print 
c=Int(Rnd(1)*500)+1 
d=Int(Rnd(1)*300)+1 

Print c: Print “—”: Print d 

Input L 

If L=c—d Then 3500 

If L<>c—d. Then 3700 

Print “CORRECT!!!” 

M=M+1 

PING 

Print “Press any key for the next sum”: A$=KEY$ 
A$=KEY‘$: If A$=“”Then 3650 

Next W:Goto 250 

END 

Print “WRONG THE ANSWER WAS!!!” 
Print c—d 

ZAP 

Print “Press any key for the next sum”: A$S=KEY$ 
A$=kEY$: If A$=“”Then 3800 

Next W: Goto 250 

END 

For S=1 TO 10 

CLS 

Print:Print:Print:Print:Print:Print 
E=Int(Rnd(1)*100)+1 
F=Int(Rnd(1)*50)+1 

Print E: Print “*”: Print F 

Input Y 

If Y=E*F Then 4450 

If Y<>E*F Then 4650 

Print “CORRECT!!!” 

M=M+1 

PING 

Print “Press any key for the next sum”: A$=KEY$ 


5 A$=KEYS$: If A$=“” Then 4575 


Next S: Goto 5000 

END 

Print “WRONG THE ANSWER WAS!!!” 
Print E*F 


5 ZAP 


Print “Press any key for the next sum”: A$=KEY$ 
A$=KEY‘$: If A$=”” Then 4800 

Next S: Goto 5000 
CLS:Print:Print:Print “Do you want to;” 
Print: Print 

Print “1=Have More Sums” 

Print 

Print “2=End The Game” 

Print 

Print “3=Know Your Score” 

input Z 

If Z=1 Then Goto 5 

If Z=2 Then 6000 

If Z=3 Then 6500 

If Z<>1 Then 5400 

If Z<>2 Then 5400 

If Z<>3 Then 5400 

CLS: END 
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Dear Sirs, To overcome this, I suggest an 
additional line: 


The PONTOON program in 1005 IF T< 16 ANDTA < 16 
Issue 2 is excellent, and has THEN CLS: GOTO 1040 


pian as many BoM et SeRERL This will not give the option of 


another card if the total is below 
16 but will go direct to the 
request for bet value or twist. 


There is a problem, however. 
The computer allows a player to 


‘stick’ on any number (although R. Sibthorpe 
in normal play, we would not 

allow a player to ‘stick’ below Editor: Anyone else got some 
16). improvements? 


Example 
1F00 A900 LDA #$0 
1F02 AQ9A LDY #$9A 
1F04 20EDD3 JSR GIVAYF 
20DDDE JSR MOVAF 
Dear Sir, A900 LDA #$0 
A005 LDY #$5 
The attached example program 20EDD3 JSR GIVAYF 
from Oric Owner issue 4, was oa ee ie 
hee pingernang IFI6 A2FO — LDX #SFO 
: ‘i 1F18 20A5DE JSR MOVMEF 
tory operation. An ‘RTS 


; ; naa : 1F1B 20D1E0 JSR FOUT 
instead of a ‘BRK’ instruction IFIE EA NOP 


was more useful for experimen- 1F1F EA NOP 
tation with one off program runs 0 1F20 EA NOP 


(line 1F2E). >) Ee INY ,IF21 A20D  LDX #901 
me See sir 1F23_ BD0001 LDA $100,X 
E. P. Hollister : 1F26 F006) BEQ $1F2E 
1F28 9D10BE STA $BE10,X1 
1F2C DOFS5 BNE $1F23 
s otis : 1F2E 4¢6- BRK- 
Mistake, should ; 60 RTS 
not have been 


printed : BD 00 01 
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Arcade sounds 


By P. Kohlenbrander 


This program enables you to 
compose your own Arcadetype 
tunes and jingles to use in your 
game programmes. If you want 
to use this little program in a 


games program then just delete 5 CLS 
the last three lines and line 30 10 PLAY 7,0,1,1000 (can be changed to your own wishes) 
and change line 20 to J$= “num- 20 INPUT “Type in the tune by using keys 1-9 
ber sequence you composed” (max. 80 char.)”; J$ 
and line 40 the L in the WAIT 30 INPUT “Type in tonelength (@>)”; L 
statement to the number you 40 FOR T=1 TO LEN(J$) 
typed in when the computer 50 M=ASC(MID$(J$,T,1))—48 
asked for the tonelength when 60 MUSIC 1,3,M,9 
you were composing. 70 WAIT L 

80 NEXT T 
To make a special note longer 90 PLAY 0,0,0,0 
just type the appropriate num- 100 PLOT3,5,“Play it again?(Y/N)” 
ber in several times, e.g. 110 GETA$:IFA$<>“Y” THEN 120 ELSE 40 
(16445399999). For the tones 120 END 


use keys 1-9 and for tonelength 
use +/—2 for those very quick 
tunes and +/—15 for the jingle- 
type tunes. 
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Quickie: — ‘Calendar’ 
By Martyn J. Hall 


This is a program which will 
print up each month of the year 
choosen, separately on the 
screen. Then it will give you the 
chance to continue or end the 
program. If you continue then it 


will print up the next month and 
it will do this up to December 
when it will ask you if you want 
another go or not. On the other 
hand if you decide to end the 


program part way through then 
it will go to the choice routine to 
see if you want another go or 
not. At this point it will either 
end completely or start again. 


The Main Ideal of the program 


The main idea is that the user 


can pick out any day in a certain 
month and year, and get a cal- 


1 GOSUB 10000 


5 CLS 


ender of that year or as much as 
the user wants i.e. starting from 
January. He/she can then do it 


Listing 


10 DIM D(12),W$(7),DPM(12),MO$(12) 


GOSUB 1000 


PRINT “Please enter the first two digits of the year”:PRINT 


PRINT “‘i.e.1900 


C=0 
50 REPEAT 
5 C=C+1 
GET A$ 


>19(FIRST TWO DIGITS)”; 


IF ASC(A$)<48 OR ASC(A$)>57 THEN 60 


5 M$=M$+A$ 


PLOT 29+C,4,A$:PRINT CHR$(9) 


UNTIL C=2 


PRINT 


REM XXXXXXXXXXXXXXXKXXXKXX 
REM XX DATE ROUTINE XX 
REM XXXXXXXXXXXXXKXKXXXXXX 


REM 
C=0 


PRINT“ Please enter the date in the following form :—” 
PRINT:PRINT SPC(8),“DAY MONTH YEAR” 
PRINT:PRINT SPC(9),‘‘07 05 83” 
J$(1)="'":J$(2) =" :I$(3)="” 


YE$=“":A$="” 


PRINT 
REM 
TT%=0 


FOR F=1 TO 3 
FOR G=1 TO 2 


GET A$ 


IF ASC(A$)<48 OR ASC(A$)<57 THEN 220 
J$(F)=J$(F)+A$ 


NEXTG 


PLOT13+TT%,14,J$(F) 
TT% =TT% +6 


NEXTF 


for as many times as_ he/she 
wants, from the year 0001 
onwards. 


MO=VAL(J$(2)):DT=VAL(J8(1)): YES=M$ +J$(3): YE=VAL(YE$) 
IF YE=0 THEN GOSUB 5000:GOTO 100 
IF YE/4=INT(YE/4) THEN DPM(2)=29 

IF MO<1 OR MO>12 OR MO<>INT(MO) THEN GOSUB 5000:GOTO 100 


80 Oric Owner 


Oric Quickies 


Prime Numbers By 8. Woodland 


Function 


To determine all prime numbers 
up to value Z. In this example 
Z=200. Values X and Y may be 
altered for the most pleasing 
display with other values of Z. 


Rationale 

The array B(n) is seeded with 2, 
the first prime. Each value of A 
is divided by each prime, in 
ascending numerical order, then 
residing in B(n). If a clean divi- 
sion results, the number is not 
prime, and not saved in B(n). If 
A<# the square of the prime 


deviser, then further division is 
redundent — that number is 
prime, and stored in the next 
space in B(n). Finally, all primes 
are displated. 


10 Z=200: DIMB(Z/2): 
B(1)=2 

20 C=1: A=2: X=12: Y=24 

30 CLS. PRINT 
SPC(9);CHR$(27)“L 
PRIME SEARCH” 

40 FORD=1TOC 

50 IF A/B(D)=INT(A/B(D)) 


THEN 90 

60 F=B(D)*B(D): IF F>A 
THEN 80 

70 NEXT 


80  C=C+1: B(C)=A 

90 A=A+1: IF A<=Z 
THEN 40 

CLS: PAPER 0: PRINT 
CHR$(17) 

PLOT 8,0, 
CHR$(7)+*-PRIMES UP 
TO “+STR$(Z) 

E=2: D=8: FOR A = 1 
TOC 

PLOT D,E,STR$(B(A)) 
E=E+1: IF E>Y THEN 
D=D+X: E=2 

150 NEXT 

GET AKS$: Paper 7: 
PRINT CHR$(17): END 


100 


110 


‘Pattern’ zy martyng. Han 


Program Description 

This is a short program which 
after being initially started it will 
draw circles around an elipse 
shape and then the background 
will be shaded in different col- 
ours. The product of all this 
being that you will have an elipse 
made of circles so that there is a 
hole in the middle with a shaded 
background. 


Program Listing 
10 PAPER 1 
20 CLS 
30 PRINT “PLEASE WAIT 
FOR A WHILE”: 
WAIT400 
40 HIRES 


50 INKO 

60 AS=“PATTERN: — by 
Martyn J. Hall” 

70 CURSET,40,10,3 

80 FOR N=1 TO LEN(AS) 

90 CHAR ASC(MIDS(AS, 

N,1)),0,1 

CURMOV6,0,3 

NEXTN 

A=70: B=50 

FOR L=0 TO 

2*3.141592654 STEP .1 

140 CURSET120+COS(L)*A, 

100+SIN(L)*B,1 

CIRCLE 30,1 

NEXTL 

170 FOR P=41000 TO 48960 

STEP40 

Y=INT(23*RND(1))+1:1F 


Y 17 THEN 180 
190 POKEP,Y 
200 NEXTP 
210 END 


NB: By changing what A equals 
in line 120 the length of the 
elipse can be changed, and by 
changing what B equals then 
that will alter the height of the 
elipse. Also by changing the step 
in line 130 you can alter the 
density of the picture i.e. a very 
small number will produce a 
black elipse with a hole in the 
centre whereas a fairly small 
whole number will produce 
large shaped holes due to the 
circles. 
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LINES 


Draws lines on the screen 
under control of the cursor 
keys. HIRES mode is used and 
each press of a cursor draws a 
line 5 pixels long. The current 
position is marked by a “+” 
sign. The “1”. key exits the 
program and the “\” key 
clears the screen for a new 


By D. R. Thwaites 


BLOCKS 


Is similar but draws character 
sized blocks on the screen 
instead of lines. It works in 
TEXT mode and the four cursor 
keys draw one block at a time in 
the appropriate direction. The 
current cursor position is mar- 
ked by a dotted, rather than 


It is straightforward to define 
further operations in the 
‘LINES’ program to draw dia- 
gonals e.g. using the four keys 
just above the cursor keys. 


Blocks gives two modes 
DRAW (set at startup) which 


solid, block. The “1” and “\” 
keys have the same functions as 
in program 1. 


draws lines or blocks and 
RUBOUT which deletes lines or 
blocks. These are selected with 
the “D” and “R” keys. 


drawing. 


5 REM Program 1 - Lines 
1{@@ HIRES 
11@ X=12@ ; Y=100 
12@ GOSUB 4@@ 

* 130 GET AS 
14@ IF Ag="\" 
15@ IF Ag="1" 
16@ GOSUB 40@ 
178 A=ASC{A$)-7 
188 ON A GOSUB 208,206,300,308 

194 GOTO 128 

200 : BH=i@*<A-1.5) 

21@ : IF X+B<S OR X+B>234 THEN 

228 : DRAW B,@,1 

23@ : X=X+B 

299 + RETURN 

308 : B=18#°3.5-A) 

318 : IF Y+B<5 OR ¥+B9194 THEN 399 

32@ : DRA! 8,B,1 

338 : Y=7+B 

399 +: RETURN 

400 ; CURMOQY -2,-3,3 

410 : CHAR 43,0,2 

420 : CURMOV 2,3,3 

499 + RETURN 


: CURSET X,Y,@ 


THEN PING 
THEN ZAP 


: GOTO 166 
: TEXT : END 
5 REM Program 2 - Blocks 
1@@ CLS 
116 X=18 : Y=13 : 
12@ GET AS 
130 IF Ag="\" 
146 IF As="i" 
15@ A=ASCCAS) 
168 IF A= 8 THEN B=-! : @ : GOTO 308 
17@ IF A= 9 THEN B= 1 : 8 : GOTO 300 

1 
i 


PLOT X,¥,126 


THEN PING 
THEN ZAP : 


: GOTO 106 
CLS : END 


198@ IF A=1@ THEN B= @ : : GOTO 308 
190 IF A=1! THE = 2: : GOTO 308 
288 GOTO 128 

30@ IF X+B<1 OR X+B)36 THEN 120 

31@ IF Y+#C<1 OR Y+C25 THEN 120 

32@ PLOT x,Y,128 

33@ X=X4+B : Y=Y+C 

34@ PLOT X,¥,126 

35@ GOTO 120 


These programs are in their sim- 
plest forms. Some improve- 
ments are obvious, e.g. PAPER 
and INK commands for col- 
oured drawings. A further sim- 
ple addition is to allow rubbing 
out of previously drawn lines. 
This could be accomplished by 
the following additions/changes. 


BLOCKS 
105 P=128 
152 IF A$=“D” THEN P=128 
154 IF A$=“R” THEN P=32 
320 PLOT X,Y,P 
340 PLOT X,Y,126 


LINES 
105 P=1 
152 IF A$=“D” THEN P=1 
154 IF A$=“R” THEN P=0 
220 : DRAW B,0,P 
320 : DRAW 0,B,P 
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Subscription 


Why you should 
subscribe to 
ORIC OWNER 


Your Oric 1 is one of the most powerful low-cost computers on the market today. Oric 
Owner is the only magazine totally dedicated to the Oric and its supporting hardware 
andsoftware. 


From issue to issue Oric Owner is able to bring you in-depth information on the Oric, 
advance news on the latest add-ons, superb programs to try and ‘behind the scenes’ 
interviews with the engineers who designed it. 


lf you wish to keep ahead of the latest developments and news on the Oric then Oric 
Owner is essential. At only £10 for a year’s subscription of 6 issues (£15 for overseas 
readers) can you afford to be without Oric Owner? 


SUBSCRIBE TODAY! 


subscription form 
Please send me the next 6 issues of ORIC OWNER 


Starting from iSSUE ........ccceeeeeeeeeees 


CIES BIG a ced eects eis mite gs sceeens tnainera shay aah denier inten nematodes for£10 


Svecenesacsesseeeneeseeeseeaer 


PLEASE NOTE: All cheques must be made payable to: Tansoft Ltd, Unit 1 & 2, Techno 
Park, Newmarket Road, Cambridge 
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Software 


Cassette File Manager 


Here is a useful Utility Program 
for the serious Programmer who 
does not own a disk drive yet, 
but would like to be able to 
handle program files more effi- 
ciently using the ordinary cas- 
sette. 


Ideally, a cassette drive with the 
auto Program search facility will 
help one skip through programs 
with more ease than having to 
verify by sound. Good cassette 
drives also allow for better reso- 
lution of data at the 2400 baud 
transfer rate (fast mode). 


10 REM: ***CASSETTE FILE 
MANAGER*** 
20 REM: BOYET LAYGO 
VER 2.0/2.0/10SEP83/ 
MANAMA 
30 REM ; 
40 REM ¢8Fe 
99 HIMEM #8FF 
100 FILE$=“ORIC-1 
VOL. 1, UTILITIES” 
110 FT$=“CASSETTE FILE, 
Contents:” 

120 DATA 000-035 “MENU— 
SIDE A” 

130 DATA PROGRAM 
FILE. ... 

999 DATA END OF FILE 
1000 MC$=“AD009F482033F4 
EEC19F68C90DDO 
FIA9008DC19F60”: 

ADDVEC=#F€9: 
GOSUB2000  4€¢4 

1010 CLS: PAPERO: INK1: 
RESTORE 

1020 PRINT FILE$: PRINT: 
PRINT: PRINT FT$: 
PRINT 

1030 :0}45NOTPO THEN 1050 

5F Por] THEN (0 50 


By R. L. Laygo 


There is no more need to buy 
expensive 5-minute cassettes, as 
even a good quality C-60 will 
store numerous programs com- 
pactly. This MENUprogram is 
reserved or sectored at the start 
of every side with 000-035 count 
(fast mode) allowing sufficient 
space for updating. 


You might also want to put files 
into separate volumes according 
to the following classification: 


1. PROGRAM FILES 
1.1 Self-authored Utilities, 
Games, etc. 


1040 :L$=FILE@4 CHR$(10) 
+CHR&@(13): GOSUB 
3000 

1042 :L$=CHR$(15)+FT$+ 
CHR$(14)+CHR$(10)+ 
CHR$(13): GOSUB 3000 

1050 REM: FILE CONTENTS 

1060 PC=0 :REPEAT 

1070 READ P$: PRINT P$ 

1080 :IF NOT PO THEN 1090 
ELSE L$=P$: GOSUB 
3000 

1090 PC=PC+1 :UNTIL P$= 
“END OF FILE” OR 


PC=18 


1100 PING: IF P$="“END OF 
FILE” THEN 1130 

1110 PRINT:PRINTCHR$(27); 
“Lpress any key to 
continue”: GET A$ 

1120 CLS: GOTO1050 

1130 PRINT: PRINT 
CHR$(27); “LPRINTOUT 
REQUIRED”;: INPUT 
R$ 

1140 IF LEFT$(R$,1) <>"Y” 
THEN 1160 

1150 PO=TRUE: GOTO 1010 


1.2 Commercial Software 
backups 


2; LITERAL ASCII FILES 
2.1 Machine Code data 
2.2 Screen data 
2.3 Text data 

3. Others 


Delete lines 10-40 in actual use. 


Lines 100-999 heading the list 


file makes things easier at the 
time of updating. After creating 
or updating the MENU, always 
Autosave by typing: CSAVE 
“MENU—SIDE A (or B)”, 
AUTO 


1160 PAPER: INKO: PING 

1170 INPUT “REPEAT”; R$: 
IF LEFT$(R$,1) <>“Y” 
THEN 1190 

1180 PO=FALSE: GOTO 1010 

1190 CLS: PRINT “ENJOY 
YOUR 
PROGRAMMING!” 

1999 END 

2000 REM: LOADING 
M-CODE 

2010 FOR I=1 TO LEN(MC$) 
STEP2 

2020 :MC=VAL(“#"+MID$ 
(MC$,1,2)) 

2030 :POKE ADDVEC+ 
INT(I/2+A)-44%MC 

2040 NEXTI ? 

2050 RETURN 

3000 REM: LPRINT 

3010 FOR I=1 TO LEN(L$) 

3020 :POKE #9F00+I-—1, 
ASC(MID$(L$,I,1)) 

3030 NEXT I 

3040 :POKE #9F00+I—1, 13 

3050 CALL #9FC0O: RETURN 
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HERE IS AN EXAMPLE OF 
A PRINTOUT WHICH 
STORES NEATLY WITH 
THE CASSETTE VOLUME 


ORIC-1 VOL. 1, UTILITIES 365-390 “ROTO-ONE” SIDE B 
AUTO 
CASSETTE FILE,Contents: 34, 308 “ROTO-ONE” 000-017 “LPRINT3” A#9F00 
000-035 “MENU—SIDE A” AUTO E#9FFF §S 
037-087 FREE 400-406 “ROTO-ONE/1” 019-925 “LPRINT VER1.3” 
089-143 “PERSPECTIVE 3” AUTO 027-034 “LPRINT/BASIC” 
147-176 “PERSPECTRANS1” 407-414 “ROTO-ONE/2” 036-045 “TEXTFORM” 
S AUTO AUTO 047-058 “TEXT” 
180-205 “PERSPECTRANS2” 417-424 “ANIMATION1” 060-072 “TEXT3” 
s AUTO AUTO 074-085 “TEXT V1.3” 
208-220 “DRAWA” S AUTO 428-434 “ANIMATION2” — 087-998 “TEXT” 
222-237 Unclassified AUTO 100-111 “TEXT 4” 
241-259 “DRAW2” 436-441 “BASICSUBR” 113-124 “TEXTV2” 
289-309 Unclassified 443-455 “LPRINT VER1.0” S 126-138 “TEXT V2.1” 
310-352 “TRANSTWO” AUTO 140-152 “TEXT GOOD” 
AUTO 457-469 “LPRINT VER1.1” S 
354-360 “TRANSTWO” AUTO 
AUTO 470-666 FREE 


For 48K £6.95 inc. For 48K £8.50 inc. For 48K £6.95 inc. 

SUPER M/C ARCADE GAME @ Assembler/Disassembler/Editor A challenging adventure set in the mines 

FROM SELECTED BRANCHES @ Handles full 6502 mnemonics. Features Of Moria. 

@ Skill Levels, Full Colour, Platforms, Save & Reload M/C Assembles & @ Can you survive encounters with the 
Ladders, Fire-balls, Rolling Barrels, Disassembles at any address. monsters of Middle-Earth? Will the 
Umbrellas, Hearts, Hall of Fame, You can’t program seriously without wizard help you? Are you fated to die 
Sound Effects. Oricade. beside the sealed doors? Or have you 

Your won't see a better game for the Oric. | *Author — Adrian Sheppard. the power to open them? Unless you 


find Durins Ring you will never leave 
“Author — Adrian Sheppard. the mines alive! 

*Sold at branches of LASKYS and all 
good software shops — ask for SEVERN 


SOFTWARE. 
For 48K £6.95 inc. For 48K £6.95 inc. Dealer/Distributor enquiries welcome — 
REAL M/C ARCADE ACTION Exciting Graphic Adventure en aos heap, ee at ee ae ee are ee 
@ 4 Screens, Skill Levels, Full Colour, Where in the Castle Perilous is the | 
Road, Cars, Lorries, River, Croce, Holy Gral? Gather annour and | ge —_ - YOUR sccivoisieasssinccieree tastvess’ program. 
Logs, Hall of Fame, Sound Effects. weapons to fight monsters. Sell i saciid | 
Perspire your way up the screen. treasure to a trader in exchange for lenclose cheque/P.O. fOr £.......csssssssssssseessssseeseseeesees | 


| 

| 

| 

oe ___ Strength potions and wound ointment. | 
Author Where will the warp take you to? | 
Adrian Sheppard. This is a test of skill, luck, logic & 
| 

| 

i 

| 

| 


intelligence. 


SEVERN SOFTWARE 


| 

| 

oo 5, School Crescent, Lydney, Glos. GL15 5TA. | 
eee | 
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COMPARE THESE PRICES ORIC 
GAME FREAKS 


IF YOU WANT JOY. . . STICK TO US 


XENON-1 
INVADERS 
REVERSE ...... 
FANTASY QUEST .. 
3D MAZE & BREAKOUT .... 
CANDYFLOSS & HANGMAN 
ZODIAC 
DEATH SATELLITE 
THE ULTRA ..... 
LIGHT CYCLE .. 
CENTIPEDE ...... 
THE GAUNTLET .. 


TANSOFT 
TANSOFT 
TANSOFT .... 


RAT SPLAT TANSOFT .... 
DEFENCE FORCE TANSOFT 
ORIC CALC ... TANSOFT 
FLIGHT ....... TANSOFT 


THE HOBBIT 
AUTHOR 


TANSOFT 
TANSOFT .... 


ALL PRICES INCLUDE VAT & P&P- ALLOW 21 DAYS FOR DELIVERY | 


PLEPAWE SUPPLY aincnsicearussenstinaaeinasansenicnnanenetmeaiesnciin | SRE TR AI/DELT 


soe devi ctetbySasbaedteoredes egeseennceapea eats TOTAL ENCLOSED € 0o....ooococceecccs | For further details 
syne en BONG Stas RCTS cFuSUge UNOS ARG cE SUT Ee Ue cece ceases : phone 01 -203 6366/7 


ADDRESS .. ‘ . 
and ask for David Bishop. 
Also available at the PCW Show 


\ Y 5 . 
SEND ORDERS TO-- POSTAL COMPUTER SERVICES, VULCAN The UK leading 


FREEPOST P.O. BOX 2, MIDHURST, WEST SUSSEX, GU29 9BR. ELECTRONICS UD Joystick Distributor 


FOUR QUALITY PROGRAMS 
FROM SUPERIOR SOFTWARE 


SUPERIOR 
SOFTWARE 


ASSEMBLER (16K/48K) £9.95 


A powerful tool for machine code programmers, with 
flexible editing facilities. 

Features: Labels any length, simple arithmatic on operands, 
numbers may be specified in binary, octal, decimal or hex, 
source code may be saved to, and loaded from, tape. 
Available directives: OPT, ORG, EQU, RES, DEFB, DEFW, 
DEFS. 


rm 
e 7 Supplied with clear and comprehensive documentation. 
URUGUAY PLEASE CIRCLE MEMORY SIZE WHEN ORDERING 
a CAPITAL? 
? 
> oer TOOLKIT (16K/48K) £9.95 
a. POPULATION? A high quality programmers’ aid, for use on its own, or as 
a (co-resident) complement to the ASSEMBLER. The 
<= TOOLKIT includes a full disassembler, allowing output to 
7) memory and printer, a monitor, to step through machine 
code one instruction at a time, SEARCH, COPY and VERIFY. 
~” WORLD GEOGRAPHY eo Disassembler output may be edited and reassembled (with 
— = ASSEMBLER), or stored on tape. Full documentation 
fe) This effective program builds a firm supplied. 
knowledge of country names, PLEASE CIRCLE MEMORY SIZE WHEN ORDERING 
a populations and capitals, through a 
series of graded question and Pree eee 
answer sessions. 


An attractive high resolution map 
& dominates the display, with the a Clip & post to: Darkstar, FREEPOST, LEEDS, LS1 1YY. 
FOR THE a eens o session's text covering the bottom |] 
, 48K ; SN gO ce it of the screen. A cursor associates B Please send: 
location with country name. i eet | 48K Name ... 0... cece eee eee eens 
Performance ratings help assess 'ssion 
LUNAR MISSION (48K) progress through each session, Y | pone 7 48K BOGOSS: oie tsetse 3 anc eg Hees Pe eke 
ay ” allowing the direction of further eography |L_ 
I'll have two hundred work: EE oric PGKIABIC® contd etary cate det mic owe eran eos Se 
A Assembler LJ 
Jeff Brown, Centresoft, Tipton. B orc CL ee ee Te 
Toolkit LJ 
mn 2 Dealer fF] Rs are ane da eee mane area te Han 
Bi sicepsadoisansloveeicy 48 hour despatch by first class post B kit = 
Phone 0532 452223 or tick box | | a ee 
4 % eque/P.O. 
All prices include VAT and P. & P. | enclosed £ payable to Darkstar. Overseas orders add 15%. 


* More quality programs required. 
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ORIC-1) ‘cur 
Join Now and receive: 


e A Free 'Oric Toolbox’ Cassette 
@ Monthly Members’ Newsletter 


© Details of our ‘Star Tape of the 
Month’ 


¢ Our Mail Order Catalogue with the 
widest Oric range at 10% discount. 


ANNUAL MEMBERSHIP ...... £5.00 
6 MONTHS TRIAL .......... £3.00 
OVERSEAS (1 YEAR) ........ £8.00 


To join send fee, name, address and 
Tel. No. or 50p for our Mail Order 
Catalogue only 


Members deduct 10% from any item 
advertised and add p&p per item: 30p 
Software; £8 Hardware. Overseas add 
extra £1 per item. 


LATEST ORIC RELEASES | ORIC PERIPHERALS 


Available NOW NOW IN STOCK 
Centipede ananaswicntens ¥ o-< £6.95 
Speech Synthesizer ........ £57 
enon | sce cagvaeagess es . MCP40 4 COLOUR PRINTER/PLOTTER 
CEES earner een ne senna Fe if £149.95 incl. cable 
Oric Trek 
The Hobbit 
Database oa SHINWA CP80 PRINTER, F and T 
HODBEF o6 oes ee re edsoranas 4 Feeds, True Descenders, Graphics, 
Oric-Munch .............. £7.95 Centronics — ideal for Oric, Dragon, 
Zodiac Adventure .......... £9.95 BBGCte: cts agereccncsus £322.00 
Games Comp.|............ £7.95 
Zorgon's Revenge ........ £8.95 : : 
Word Processor .......... £15.00 Both Printers also ideal for Dragon, 


BBC, etc. P.A.S.E. JOYSTICK CONVER- 


Oric Forth (+Man.) ........ £14.95 EX A 
Dinky Kong .............. £6.95 TER-Takes any digital Joysticks, 
DigDog ................ £6.90 including free games tape .. £14.95 
POUNCE ssa 5 o.5 we xrsf a sce ab asaroens £6.95 

Harrier Attack ............ £7.95 

Faebiny el hasnt res QUICK SHOT JOYSTICK .... £14.95 
Space Crystal ............ £6.95 


All Prices include VAT and 
FREE DELIVERY 


ORIC 1 USERS CLUB 


31 North Street, Wareham, Dorset BH20 1AD 
Telephone: 09295 51383 Telex: 41112 OLYTRI G 


with your Access, Barclaycard, American Express numbers for 
immediate despatch (24hr. Service) 


Calling all 


_ Please send all repairs with 
detailed letters explaining the 
problems in full to the new 


address above. 


ORIC JETS 


Ovacam have changed their 
name to Oric Base and moved 
from 70 Water Street, 
Chesterton, Cambridge to 

2 THE TECHNO PARK, 
NEWMARKET ROAD, 
CAMBRIDGE, CB5 8PB. 

Their new Telephone No is: 
Teversham (02205) 2352 


Advertisers! 


The Oric Owner is the only magazine 
devoted to the Oric-1 computer. 


Virtually every person who buys an Oric 
will get this magazine. If you are selling 
Oric related products can you afford to 
miss this chance to reach the market you 
are aiming for? 


For full details of our advertising rates 
contact Carolyn on Teversham 2261 and see 
if she can help you. 
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THE 
ULTRA 


You have been challengec to 
a duel to the death in outer 
space by the ULTRA, an evil 
race of mutants from the 
darkest depths of the galaxy. 
We dare you to accept their 
challenge! 

This is a PURE arcade game 
and a must for all you alien 
zappers! 16 different screens 
make things really tricky. 
ORIC 1 16K 48K 


LIGHT 
CYCLE 


’ The MASTER CONTROL 


PROGRAM has ordered you to 
race your light cycle on the 
infamous grid. This is an 
incredibly fast, adrenalin 
pumping game that is very 
addictive. There is an option 
to race against either another 
player or the computer — but 
we warn you its very very 


good! av 
ORIC 1 16K 48K gp 24" 45) 5 
oe = 
we ee, 


FOR FURTHER INFORMATION RING 
COVENTRY (0203) 667556 _ 


